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SECTION  1 
INTRODUCTION 


Satellite  communications  systems  that  use  transionospheric  propagation  links 
may  be  subject  to  severe  performance  degradation  when  the  ionosphere  is  highly 
disturbed  by  high  altitude  nuclear  explosions  \Arendt  and  Soicher,  1964;  King  and 
Fleming,  1980]  or  by  chemical  releases  [Davis  ei  al.,  1974;  Wolcott  et  al.,  1978]. 
During  these  events,  the  increased  electron  concentrations  and  the  irregular  structure 
of  the  ionization  can  lead  to  intense  Rayleigh  signal  scintillation  at  the  radio 
frequencies  (RF)  used  for  satellite  communication  links  and  space  radars. 

Under  severe  scintillation  conditions,  the  signal  incident  at  the  receiver  can  vary 
randomly  in  amplitude,  phase,  time-of-arrival,  and  angle-of-arrival.  If  all  frequency 
components  of  the  signal  vary  essentially  identically  with  time,  the  propagation  channel 
is  referred  to  as  nonselective  or  flat  fading.  When  the  scintillations  exhibit  statistical 
decorrelation  at  different  frequencies  within  the  signal  bandwidth,  the  channel  is 
referred  to  as  frequency  selective.  Frequency  selective  scintillations  are  therefore 
encountered  when  the  signal  bandwidth  exceeds  the  frequency  selective  bandwidth  of 
the  channel.  When  the  scintillations  exhibit  statistical  decorrelation  across  the  face  of 
an  aperture  antenna,  the  channel  may  also  be  referred  to  as  spatially  selective. 

Under  conditions  where  the  signal  is  spatially  selective,  the  antenna  beamwidth  is 
smaller  than  the  angle-of-arrival  fluctuations,  and  the  effect  of  the  antenna  is  to 
attenuate  the  incident  signal  that  is  arriving  at  off-boresight  angles.  In  the  spatial 
domain,  the  incident  electric  field  is  decorrelated  across  the  face  of  the  antenna.  The 
induced  voltages  in  the  antenna  then  do  not  add  coherently  as  they  would  for  an 
incident  plane  wave,  resulting  in  a  loss  in  the  gain  of  the  antenna.  Because  of  this 
angular  filtering  or  spatial  selectivity,  the  second-order  statistics  of  the  signal  at  the 
output  of  the  antenna  will  be  different  from  those  of  the  incident  signal. 

Design  and  evaluation  of  radio  frequency  systems  that  must  operate  through 
ionospheric  disturbances  resulting  from  high  altitude  nuclear  detonations  require  an 
accurate  channel  model.  This  model  must  include  the  effects  of  scintillation  caused  by 
the  ionosphere  and  the  effects  of  high  gain  antennas  that  may  be  used  to  receive  the 
signals.  Such  a  model  can  then  be  used  to  construct  realizations  of  the  received  signal 
for  use  in  digital  simulations  of  transionospheric  links  or  for  use  in  hardware  channel 
simulators. 

The  propagation  channel  is  conveniently  represented  in  terms  of  the  time- 
varying  channel  impulse  response  function  h{T,t)  or,  equivalently,  by  its  Fourier 
transform,  the  time-varying  channel  transfer  function  H{(0,t).  T^e  former  is  the 
channel  response  at  time  t  to  an  impulse  applied  at  t-T.  The  latter  is  the  channel 
response  to  a  sinusoidal  excitation  at  radian  frequency  (O.  The  received  signal  r{t)  is 
the  convolution  of  the  channel  impulse  response  function  and  the  transmitted 
modulation  m{t): 


oo 


(1) 


r(0  =  \  h{'C,t)  dT  . 

0 

Two  limiting  models  for  the  temporal  behavior  of  the  channel  impulse  response 
function  have  been  used  in  the  past.  The  first  limit  is  the  “frozen-in”  model  wherein 
the  ionospheric  structure  or  striations  that  cause  scintillation  act  as  a  cohesive  structure 
that  moves  relative  to  the  propagation  path.  The  time  variations  of  the  received  signal 
are  then  a  straightforward  mapping  of  the  diffracted  electric  field  as  it  drifts  past  the 
receiver.  Thus  in  this  frozen-in  model  there  is  strong  coupling  between  the  spatial  and 
temporal  variations  of  the  received  signal.  The  second  limiting  model  is  a  “turbulent” 
situation  wherein  striations  move  differently  at  different  points  along  the  propagation 
path,  causing  time  variations  of  the  diffracted  electric  field  to  become  decorrelated  at 
different  points  in  a  plane  normal  to  the  line-of-sight.  The  turbulent  model  therefore 
decouples  the  spatial  and  temporal  variations  of  the  received  field.  Wittwer  [1989] 
proposed  a  “general”  model  that  falls  between  these  two  limiting  models. 

The  purpose  of  this  report  is  to  describe  the  Fortran  channel  model  ACIRF 
(Antenna/Channel  Impulse  Response  Function)  which  generates  random  realizations  of 
the  impulse  response  function  at  the  outputs  of  multiple  antennas.  The  theory  behind 
the  impulse  response  function  for  the  general  model  is  discussed  in  Dana  [1991]. 
Channel  simulation  techniques  without  antennas  have  been  described  by  Wittwer  [1980] 
and  Knepp  and  Wittwer  [1984].  The  former  reference  contains  a  listing  of  the  original 
CIRF  (Channel  Impulse  Response  Function)  program  developed  by  Dr.  Leon  A. 
Wittwer  of  the  Defense  Nuclear  Agency.  Simulation  techniques  were  extended  to 
include  antenna  effects  in  Dana  [1986,  1989[. 

The  latest  version  of  ACIRF  (version  3.5)  is  based  on  the  general  model  with 
antenna  aperture  effects.  A  new  version  of  CIRF  contains  the  older  frozen-in  and 
turbulent  models  without  antenna  effects.  RCIRF  (Radar/Channel  Impulse  Response 
Function)  is  a  code  based  on  ACIRF  that  produces  the  impulse  response  functions  for  a 
monopulse  radar  and  two-way  propagation  through  the  ionosphere  [Dana,  19XX].  All 
three  codes  use  a  standard  output  file  format. 

Section  2  of  this  report  briefly  summarizes  the  theory  behind  ACIRF.  The 
Generalized  Power  Spectral  Density  (GPSD)  function,  which  describes  the  second 
order  statistics  of  the  channel  impulse  response  function,  is  given.  Antenna  beam 
profile  parameters  (beamwidths  and  pointing  angles)  are  defined,  and  the  effects  of  the 
antenna  on  the  received  signal  statistics  are  described.  Channel  simulation  techniques 
used  in  ACIRF  are  outlined  in  Section  3.  Examples  of  the  output  of  a  matched  filter 
that  illustrate  the  effects  of  scintillation  and  antennas  on  the  received  signal  are  in 
Section  4.  The  input  and  output  of  the  ACIRF  and  CIRF  Fortran  codes  are  discussed 
in  Section  5. 
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SECTION  2 
THEORY 


The  starting  point  for  channel  modeling  is  the  generalized  power  spectral  density 
(GPSD).  This  function  describes  the  second-order  statistics  of  the  signal  incident  on 
the  face  of  an  antenna.  When  scintillation  is  intense  or  fully  developed,  the  first-order 
signal  amplitude  statistics  are  well  described  by  the  Rayleigh  probability  distribution, 
and  the  signal  phase  is  uniformly  distributed  over  a  In  radian  interval.  The  strong 
scattering  limit  can  also  be  obtained  by  applying  the  central  limit  theorem  to  the 
superposition  of  the  many  randomly  scattered  waves  that  comprise  the  received  signal 
under  these  conditions.  The  in-phase  and  quadrature-phase  components  of  the  signal 
are  then  independent,  zero-mean  Gaussian  random  variables  with  variances  equal  to 
one-half  tlie  total  signal  power.  These  conditions  are  both  necessary  and  sufficient  for 
Rayleigh  amplitude  statistics. 

The  derivation  of  the  GPSD  starts  with  Ma.xwell’s  equations  from  which  the 
parabolic  wave  equation  is  derived  (see,  for  example,  Dana  [1986,  1991  ]).  A  necessary 
condition  for  the  parabolic  wave  equation  to  be  valid  is  that  the  phase  perturbation 
over  a  distance  comparable  to  a  wavelength  be  small  compared  to  one  radian.  A 
sufficient  condition  is  that  the  angular  deviation  of  the  wave  relative  to  the  principal 
propagation  path  be  small  compared  to  one  radian.  These  conditions  are  generally 
satisfied  whenever  attenuation  of  the  propagating  wave  is  not  significant. 

2.1  MUTUAL  COHERENCE  FUNCTION. 

The  parabolic  wave  equation  can  be  solved  to  give  the  received  electric  field  for 
a  specific  distribution  of  the  index  of  refraction.  The  difficulty  is  that  the  index  of 
refraction  is  a  random  process.  The  parabolic  wave  equation  is  therefore  used  to 
derive  an  equation  for  the  two-position,  two-frequency,  two-time  mutual  coherence 
function,  T,  of  the  complex  envelope  E  of  the  received  electric  field: 

r{x,\\(0,t)  =  (£(.v,,>',,a)],t])E*(.V2,y2,W2,t2))  (2) 

where  .v  =  .Vi  -  xi  and  y  =  yi  -  ts  are  relative  positions  in  a  plane  normal  to  the  line-of- 
sight,  (0-  (Ui-n>2  is  radian  frequency  difference,  and  i  =  ti-?2  is  ^ime  difference. 

The  solution  of  the  differential  equation  for  the  mutual  coherence  function 
describes  the  second-order  statistics  of  the  received  signal.  The  “frozen-in”  and 
“turbulent"  motlels  have  been  used  in  the  past  to  give  the  temporal  statistics  of  T.  In 
the  frozen- in  model,  the  striations  in  the  ionosphere  act  as  a  cohesive  structure  that 
moves  relative  to  the  propagation  path.  Time  variations  of  the  received  signal  are  then 
a  straightforward  mapping  of  the  diffracted  electric  field  as  it  drifts  past  the  receiver 
antenna.  In  the  turbulent  model  the  striations  move  differently  at  different  points 
along  the  propagation  path,  causing  time  variations  of  the  diffracted  electric  field  to 
become  decorrelated  at  different  points  about  the  line-of-sight.  The  “general”  model 
that  falls  between  these  two  limiting  models.  This  model  has  been  incorporated  into 
version  3.5  of  ACIRF. 
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The  mutual  coherence  function  for  the  general  model  is 


where  (Ocok  is  coherence  bandwidth,  Cxt  and  Cyt  are  space-time  correlation  coefficients 
(Q,  -I-  Cy,  =  1  for  the  frozen-in  model;  Cxt  =  Cyt  =  0  for  the  turbulent  model),  Tq  is 
decorrelation  time,  Hx  and  Qy  are  decorrelation  distances,  and  i  is  'iA.  The  coherence 
bandwidth  is  defined  using  the  GPSD  which  will  be  discussed  in  the  next  subsection. 
The  delay  parameter  a  is  equal  to  the  ratio  of  the  time  delay  spread  caused  by 
diffraction  to  that  caused  by  refraction.  In  strong  scattering  where  diffractive  effects 
dominate,  the  value  of  a  is  fairly  large.  The  asymmetry  factors  Ax  and  Ay  are  given 
by: 


{4a) 

24  1  2 

(4b) 

By  examining  the  form  of  the  mutual  coherence  function,  it  can  be  seen  that  the 
decorrelation  time  To  is  the  \/e  point  of  /10,(),0,0,  the  decorrelation  distance  Hx  is  the 
Me  point  of  /Ta,(),0,0).  and  the  decorrelation  distance  Hy  is  the  1/e  point  of  r(0,y,0,0). 


The  propagation  x-v-z  coordinate  system,  shown  in  Figure  1,  is  defined  by  the 
line-of-sight  direction  unit  vector  z  and  the  geomagnetic  field  B  at  the  altitude  in  the 
ionosphere  where  scattering  occurs.  The  x-  and  v-axis,  defined  as 


A 

X 


Bxz 

\B\  sin  0 


(5a) 


A  A  A 

y  =  zxx  (5b) 

are  chosen  so  that  Hx  <  &y.  The  penetration  angle  0  is  the  angle  between  the  line-of- 
sight  direction  and  the  geomagnetic  field  in  the  ionosphere. 
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Line-of-Sight 


z 


Figure  1.  Propagation  coordinate  system. 


In  general,  both  decorrelation  distances  should  be  part  of  the  specification  of  the 
channel  parameters.  However,  if  only  the  minimum  decorrelation  distance  S.x  (also 
referred  to  as  jSq  in  the  literature)  is  specified,  the  ratio  of  the  decorrelation  distances, 
S.yl  Q.X,  can  be  estimated  from  the  formula; 


In  this  formula  q  is  the  axial  ratio  that  is  equal  to  the  ratio  of  the  characteristic  length 
of  the  striations  along  the  field  lines  to  the  characteristic  thickness  of  the  striations  in  a 
direction  normal  to  the  field  lines.  The  standard  value  for  q  has  been  15.  However, 
recent  research  on  the  physics  of  striations  indicates  that  q  may  be  as  large  as  70 
[Wittwer,  19881. 

2.2  GENERALIZED  POWER  SPECTRAL  DENSITY. 

The  Fourier  transform  of  the  mutual  coherence  function  is  the  generalized 
power  spectral  density  of  the  received  signal: 
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oo  oo  oo  oo 

j  dx  j  dy  j  dt  r(x,y,a)d)  exp  [-iiKxX  +  Kyy-Q}T+ (OdO] 

-c>o  -oo  -oo  -oo 

(7) 


where  K±  =  {Kx,Ky),  coq  is  the  Doppler  radian  frequency,  and  t  is  time-of-arrival  or 
delay.  The  x  and  y  components  of  the  wave  vector  are  related  to  the  scattering 
angles  Ox  and  6y  about  the  x  and  y  axes  and  the  RF  wavelength  A  as  follows: 


2k  sin  Ox 
K,  =  -X- 

2k  sin  Oy 
"  A 


The  quantity 


(8a) 

(8b) 


S{KxJ.(Od) 


,d(OD 
{iK?  27t 


is  the  mean  signal  power  incident  on  a  plane  normal  to  the  line-of-sight  arriving  with 
Kx  vector  in  the  interval  Kx  to  Kx+d^Kx\  with  delay  in  the  interval  Tto  T+tir,  and 
with  Doppler  radian  frequency  in  the  interval  (Od  to  (OD  +  dQ)D. 

In  general,  the  GPSD  can  be  written  as  the  product  of  a  Doppler  term  times  an 
angle-delay  term: 

S{Kx,t,(Od)  =  5D(ft)D)5/rT  (^i.T)  ,  (9) 


where  the  Doppler  spectrum  is 

_ 


Sd(o^d)  = 


-exp 


Vi  ~  ^ xt  ~  ^ yt 
and  the  angle-delay  part  of  the  the  GPSD  is 

Skt  (^i.T) 


( 'fp  (Op  -  C xlKx  S-X-  CylKy  HyY 
4(1  -  cl  -  cl) 


'k 

1 

7  rt 

r  Kill  Kill  1 

_2, 

HxHyacOcoh  exp| 

- 1 

rf 

! 

1 

_ 1 

a 

X  exp  'I- 


(Ocohr-  - 4 — - 


(10) 


(11) 
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Il  is  interesting  to  examine  the  limits  of  the  Doppler  spectrum  for  the  general 
model  to  show  that  this  model  does  indeed  encompass  both  the  frozen-in  and  turbulent 
models.  These  limits  are: 


Limit 

Cxt^^  Soicoo)  =  27c  To  8(Toft)£)-A'jtj2x)  (Frozen-in  Model)  (12a) 
Cyt  — >  0 


Limit 

Cxt^^  Sd{(Od)  =  VnToexp 
Cyl  — »  0 


2  2 
4m 

4 


(Turbulent  Model)  (12b) 


where  5(  )  is  the  Dirac  delta  function.  For  the  frozen-in  model,  the  drift  velocity  of 
striations  is  chosen  to  be  along  the  jc-direction  in  the  plane  normal  to  the  line-of-sight 
(i.e.,  Cxt  is  set  to  unity  and  Cyt  is  set  to  zero).  Because  this  direction  is  also  chosen  to 
be  the  one  with  the  minimum  decorrelation  distance,  this  choice  minimizes  the 
resulting  decorrelation  time. 


2.2.1  Frequency  Selective  Bandwidth  and  cocoh^ 


The  frequency  selective  bandwidth  /o  is  an  important  measure  of  the  effects  of 
scintillation  on  the  propagation  of  wide  bandwidth  signals.  This  quantity  is  defined  in 
terms  of  the  standard  deviation  of  the  time-of-arrival  jitter,  cr-r: 


/o  - 


Ikgt 


where 


(13) 


(14) 


These  delay  moments  can  be  calculated  directly  from  the  angle-delay  part  of  the  GPSD 
using  the  equation 


oo  oo 

Poirn)  =  j  j  dTT^SKxiK^.T)  .  (15) 

-OO  ''  -oo 

It  is  easy  to  show  that  the  mean  signal  power  Pq  is  equal  to  unity. 

The  first  and  second  moments  are  easily  obtained  in  closed  form  giving  the 
relationship  between  coherence  bandwidth  and  the  frequency  selective  bandwidth; 
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^  .  (16) 

The  1  +  1/a^  term  in  the  expression  for  the  coherence  bandwidth  represents  the  relative 
contributions  to  the  time  delay  jitter  from  diffraction  (1)  and  dispersion  (l/cr^).  In  the 
limit  that  a  is  large,  the  time  delay  Jitter  is  determined  by  diffractive  effects  alone. 
This  should  be  the  case  under  strong-scattering  conditions. 

2.2.2  Angle-of-Arrival  Fluctuations  and  Six  and  Hy. 

A  key  parameter  in  determining  the  severity  of  antenna  filtering  effects  is  the 
standard  deviation  Oq  of  the  angle-of-arrival  jitter  of  the  electric  field  incident  on  the 
antenna  aperture.  Clearly  for  anisotropic  scattering,  when  Hx  and  Sly  are  unequal, 
values  of  Oo  for  scattering  about  the  x  and  y  axes  will  differ.  The  angle-of-arrival 
jitter  variance  about  the  .v-direction  for  small  angle  scattering  (i.e.,  sin0=  6)  is  equal 
to 


c^coh  -  2tt  /o 


CXD 


Skt{SS  lyT)  . 


(17) 


A  similar  expression  holds  for  the  y-direction  angle-of-arrival  jitter  variance.  The 
standard  deviations  of  the  angle-of-arrival  about  the  x-  and  y-axes  are  then  given  by 


A 

42k  Six 

(18a) 

A 

42k  Sly 

(18b) 

For  small-angle  .scattering  to  be  a  valid  assumption,  the  larger  of  the  two  angular 
standard  deviations  must  be  small  relative  to  one  radian.  Thus  the  minimum 
decorrelation  distance  must  be  greater  than  the  RF  wavelength. 

2.2.3  Isotropic  Examples. 


When  the  penetration  angle  is  zero  and  the  propagation  path  is  aligned  with  the 
striations  in  the  ionosphere,  the  tw'o  decorrelation  distances  are  equal  {Slx=  Sly=  SIq). 
In  this  case  the  scattering  is  isotropic  about  the  line-of-sight,  and  the  angle-delay  part 
of  the  GPSD  is  one-dimensional; 


f)  = 


oo 


j"  ‘^A'r(^t  =  ^'^.y.  ^)  ^^ 


(19) 
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A  three-dimensional  plot  of  the  angle-delay  part  cf  the  GPSD  for  isotropic 
scattering  is  shown  in  Figure  2.  This  plot  shows  the  mean  received  power  as  a 
function  of  normalized  angle  K  Hq  and  normalized  delay  (Dcoh'^-  The  vertical  axis  is 
linear  with  arbitrary  units.  The  value  of  cr  is  4  for  this  figure  so  consequently  the 
quantity  cOcoh  is  essentially  equal  to  Ik/q. 

It  can  be  seen  that  the  power  arriving  at  large  angles  is  also  the  power  arriving 
at  long  delays.  The  power  arriving  at  long  delays  thus  has  higher  spatial  frequency 
components  than  power  arriving  at  short  delays.  When  there  is  strong  space-tim^ 
correlation  (i.e.,  when  -i- is  approximately  equal  to  unity),  ,hese  higher 
spatial  frequency  components  correspond  to  higher  Doppler  frequency  components. 
TTie  signal  arriving  at  long  delays  then  varies  more  rapidly  in  lime  than  the  signal 
arriving  at  short  delays. 


Figure  2.  Angle-delay  generalized  power  spectral  density  for  isotropic 
scattering. 
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Another  view  of  the  GPSD  can  be  obtained  by  considering  the  delay-Doppler 
scattering  function: 


=  J  SiK±,z,(OD) 

-oo 

A  comparison  of  isotropic  scattering  functions  for  the  frozen-in  and  turbulent  models 
is  shown  in  Figure  3.  The  frozen-in  scattering  function  is  just  a  reproduction  of 
Figure  2  with  normalized  angle  K IIq  replaced  with  normalized  Doppler  frequency 
TqCOd.  This  is  a  consequence  of  the  delta-function  relationship  between  angle  and 
Doppler  frequency  for  the  frozen-in  model.  For  this  model  the  signal  at  long  delays 
has  correspondingly  large  Doppler  shifts,  and  a  wing-like  structure  is  seen  in  the 
scattering  function.  The  turbulent  model  scattering  function  does  not  exhibit  these 
Doppler  wings  because  the  Doppler  spectrum  is  the  same  at  all  delays. 

Both  functions  have  exactly  the  same  power  density  at  each  delay.  The 
difference  m  appearance  of  the  figures  is  because  the  turbulent  model  signal  at  long 
delay  is  more  spread  out  in  Doppler  frequency  and  is  therefore  less  obvious. 

A  progression  of  isotropic  general  model  scattering  functions  is  shown  in  Figure 
4.  For  each  of  the  plots  in  the  figure  C yt  is  zero.  The  space-time  correlation 
coefficient  Cxt  vanes  from  0.99  for  the  scattering  function  in  the  upper  left  to  0.7  for 
the  scattering  function  in  the  lower  right.  The  scattering  function  for  Cxt  equal  to  0.99 
is  similar  to  that  for  the  frozen-in  model,  and  the  scattering  function  for  Cxt  equal  to 
0.7  is  similar  to  that  for  the  turbulent  model.  For  intermediate  values  of  Cxt,  the 
scattering  functions  still  exhibit  Doppler  wings  but  the  wings  have  broader  Doppler 
spectra  as  Cxt  decreases. 

2.3  ANTENNA  EFFECTS. 

The  GPSD  of  the  signal  at  the  output  of  an  antenna,  is  given  by  the 

equation  [Dana,  1991) 


-  G{K ±—Kq)  S{K x.,z,Wd)  (21) 

where  G{Kx-f([))  is  the  two  dimensional  beam  profile  of  an  antenna  pointing  in  the 
direction  Ai,).  3Tie  effect  of  the  antenna  is  to  attenuate  the  received  signal  energy  at 
angles  outside  the  main  beam  of  the  antenna.  If  the  antenna  is  pointed  along  the  line- 
of-sight,  the  signal  energy  that  is  attenuated  by  the  antenna  is  that  with  large  angles-of- 
arrival.  This  is  also  the  energy  with  large  times-of-arrival  or  delay.  The  effect  of  the 
antenna  will  then  be  to  reduce  the  received  signal  power,  and  to  reduce  the  delay 
spread  of  that  energy.  As  will  be  shown  later,  antenna  beams  pointed  away  from  the 
line-of-sight  suffer  scattering  loss  but  may  not  significantly  reduce  the  delay  spread  of 
the  received  signal. 
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The  antenna  coordinate  system  is  shown  in  Figure  5.  It  is  assumed  that  the  face 
of  the  antenna  is  in  the  x-y  plane.  The  antenna  beam  is  pointed  away  from  the  line-of- 
sight  in  the  direction  Kq  defined  by  an  elevation  angle  0q  (measured  from  the  line-of- 
sight)  and  an  azimuth  angle  Oq.  The  rotation  angle  "F  is  the  angle  between  the 
scattering  x  axis  and  an  antenna  axis  u.  The  antenna  coordinate  system  (m,v),  where  v 
is  in  the  x-y  plane  and  is  orthogonal  to  u,  is  chosen  for  convenience  in  describing  the 
antenna  beam  profile.  For  example,  if  the  antenna  is  rectangular,  then  the  (u,v)  axes 
should  be  aligned  with  the  sides  of  the  aperture.  In  many  cases  the  u  axis  will  be 
parallel  to  the  local  earth  tangent  plane. 


Line-of-Sight 


z 


Figure  5.  Antenna  coordinate  system. 
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The  X-  and  ^-components  of  the  antenna  pointing  direction  Kq  in  terms  of  the 
rotation,  pointing,  and  azimuth  angles  are 


Kox  = 
Koy  = 


sin0o  cos(*F'-i-  0o) 

(22a) 

^  sin0o  sin(*f'-<-  0q)  . 

(22b) 

2.3.1  Antenna  Descriptions. 

The  antenna  beam  profile  is  assumed  to  have  a  Gaussian  shape  and  to  be 
separable  in  the  u-v  coordinate  system: 

G{Ku,K,)  =  G(Ku)G{Ku)  =  exp  [-0^  kI]  exp  [-a^,  kI]  (23) 

where  K j_-{Ku,Kv)  in  antenna  coordinates.  The  peak  gain,  G(0,0),  has  been  set  to 
unity  because  this  value  is  usually  included  in  the  calculation  of  the  mean  received 
power.  For  either  the  u  or  the  v  direction,  the  antenna  beam  profile  can  also  be 
written  as 


G(6)  =  exp 


-  (In  2) 


(24) 


where  6  is  the  angle  about  either  the  it-  or  v-axis,  and  is  the  3  dB  beamwidth  [i.e., 
full  width  at  half  maximum,  G(d()l2)  =  1/21.  Equating  Equations  23  and  24  gives 


1 


(In  2) 


(25) 


where  9q-  is  the  3  dB  beamwidth  in  either  the  ^-uor^-v  directions. 


In  the  next  subsections,  the  3  dB  beamwidths  are  related  to  antenna  sizes  for  the 
special  cases  of  uniformly  w'eighted  circular  and  rectangular  apertures. 

Uniformly  Weii’hted  Circular  Apertures.  In  this  case  the  well  known  form  for 
the  power  beam  profile  is 


4,/ll7t(D/A)sin0| 
^  ’  lit  (D/A)  sin  ep 


(26) 


where  yi(  )  is  the  first  order  Bessel  function.  The  3  dB  (full  width  at  half  maximum) 
beamwidth.  in  terms  of  the  aperture  diameter  D,  is 


e. 


1 

1 .02899  ^ 


radians  . 


(27) 
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If  this  beam  profile  is  approximated  by  a  Gaussian  profile  with  the  same  3  dB 
beamwidth,  the  coefficients  that  appear  in  Equation  23  are 


CTu  = 


(In  2)  D' 
(1.0289971)' 


(28) 


Uniformly  Weighted  Rectangular  Apertures.  In  this  case  the  antenna  beam 
profile  in  either  the  ^  =  w  or  ^  =  v  direction  has  the  familiar  sin^(a:)/x^  form: 


sin^  (71  (Df/A)  sin  6\ 
l7i  {D^lX)  sin  of 


(29) 


where  is  the  length  of  the  aperture.  The  3  dB  beamwidth  is 

-  0.885893  radians  ,  (30) 

and  the  coefficients  that  appear  in  Equation  23  are 

,  (ln2)D^. 

-  “  (0.88589371)^  ■ 

A  square  aperture  of  size  DxD  has  a  smaller  beamwidth  than  a  circular  aperture 
with  diameter  D  because  the  square  aperture  has  the  larger  area  (D'  versus  kD'^14). 

2.3.2  Antenna  Filtering  Equations. 


Filtering  equations  relate  the  statistics  of  the  signal  at  the  outputs  of  one  or  more 
antennas  to  the  statistics  of  the  signal  incident  on  the  antennas.  Statistics  that  are 
considered  in  this  subsection  are  mean  power,  frequency  selective  bandwidth, 
decorrelation  distances,  and  decorrelation  time  of  the  signal  out  of  an  antenna. 
Gaussian  beam  patterns  will  be  assumed  for  mathematical  convenience.  An  elegant 
derivation  of  most  of  the  equations  given  in  this  section  may  be  found  in  Frasier 
11990]. 


The  severity  of  filtering  effects  is  determined  by  the  relative  value  of  the 
standard  deviation  of  the  angle-of-arrival  lluctuations,  Cy,  to  the  antenna  beamwidths. 
When  (Ty  is  small  compared  to  the  antenna  beamwidths,  the  signal  arrives  essentially  at 
the  peak  of  the  beam  pattern,  if  the  pointing  error  is  small,  and  filtering  effects  are 
small.  However,  if  cTy  is  large  compared  to  the  beamwidths,  much  of  the  signal  arrives 
at  angles  outside  the  main  lobe  of  the  antenna  beam  pattern,  and  filtering  effects  are 
large.  Equivalently,  large  values  of  the  ratio  cry/0o  correspond  to  situations  where  the 
decorrelation  distance  of  the  incident  signal  is  small  compared  to  the  antenna  size  and 
the  electric  field  incident  on  the  aperture  is  no  longer  a  plane  wave.  In  this  situation, 
induced  voltages  across  the  face  of  the  aperture  do  not  add  coherently  when  summed 
together  by  the  antenna  with  a  resulting  loss  in  signal  power. 
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In  the  next  subsections,  expressions  will  be  presented  for  the  mean  power, 
frequency  selective  bandwidth,  decorrelation  time,  and  decorrelation  distances  of  the 
signal  at  the  output  of  an  antenna.  Clearly  the  numerical  value  of  these  quantities  must 
be  independent  of  the  choice  of  coordinate  systems  (e.g.,  .v-y  or  u-v  coordinates). 
Frasier  119901  has  derived  expression  for  these  quantities  that  are  coordinate-system 
independent.  However,  evaluation  of  the  filtering  equations  requires  a  choice  of 
coordinate  systems,  and  the  .v-\'  system  will  be  used  here. 

Before  presenting  the  filtering  equations,  it  is  convenient  to  define  some 
quantities  that  aiw  common  to  these  equations: 

(32a) 


(32b) 


(32c) 


(32d) 

Scatterui}’  Loss.  1'he  mean  power  P,\  of  the  signal  out  of  an  antenna  is  calculated 
using  the  expression; 


Qx 

Qs 


4cq^  ,  4(4 

1  +  co.s"‘/^+  ->  sin-f' 


4(jqt  ,  4of;. 

-I-  siir  cos“  “f* 


i?;.  ■ 

4((4i  -  Oil 


Qxy 

(?()  =  V  QxQ  V  -  Qx\  • 


cos ‘P  sin  f' 


Pa 


OO  CO  CO 

1''"  Ilf 

-CO  -CO  -CO 


(33) 


which  gives  the  result 


Pa  =  ^  exp ;  -  I 


Ql]  ^ 


Qx 

Ql 


K 


ov-^y 

4 


(?,vv 


K  S.  V 


(34) 

The  first  term  in  this  expression,  MQo.  ■t'  just  the  mean  received  power  when  the 
antenna  is  pointed  along  the  line-of-sight. 

The  scattering  loss  of  the  antenna  in  decibels  is  Just 


T  (dB)  =  -10  log,,,  (P,i) 


(35) 
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As  defined  here,  scattering  loss  includes  both  the  losses  in  the  mea'^  received  power 
due  to  scintillation  and  that  due  to  pointing  the  antenna  beam  away  from  the  line-of- 
sight. 

Frequency  Selective  Bandwidth.  The  frequency  selective  bandwidth  is  defined 
in  terms  of  the  standard  deviation  of  the  lime-of-amval  (i.e.,  delay)  jitter  of  the  signal. 
At  the  output  of  an  antenna,  the  time  delay  moments  of  the  received  signal  are  given  by 

CO  oo  oo 

"  J*  (2k)'-  J"  \ 

-OO  -oo  -CO 


Straightforward  evaluation  of  the  indicated  integrals  for  n  equal  to  1  and  2  is  indeed  a 
formidable  algebraic  task.  However,  Frasier  11990]  gives  surprisingly  simple¬ 
appearing  expressions  for  (Jr  and  the  antenna-filtered  value  of  the  frequency  selective 
bandwidth,  /),  that  are  independent  of  the  choice  of  coordinate  system.  In  terms  of  the 
notation  used  in  this  report,  the  expression  for  j)\  is  somewhat  more  complicated. 

'I'he  antenna  filtered  frequency  selective  bandwidth  is 


+  2Q‘,,  +  Qp 


where  the  term  (_>/>  in  the  denominator  gives  the  effects  of  antenna  pointing.  This 
pointing  angle  term  may  be  written  as 


Qt'  -  Qi’xFyxS\  -I-  Ql'yKyx  S;-  -r  Qrw/So.x^x^oy^v 


QyQ\(Oo- 

QxQha\ 

“  Q  x )  + 

■>  *) 

,, 

QxQKQo- 

QyQ}y2} 

2Q\yi  1  -  (7v)  + 

Qofy 

(38a) 

(38b) 

(38c) 


1  Q X -  Q .i)  Qy^\(Qo-Q\)  1 

()/.„  =  C'.v  (C.-IKI  -Cv)-C-,v+  - 


(38d) 
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Decorrelation  Time.  The  temporal  coherence  function  of  the  signal  out  of  an 
antenna  is  given  by  the  expression 

oo  oo  oo 

2 

PAmt)  =  J  \  dT  \  SA{K^,x,tOD)  .  (39) 

-CXD  -oo  -OO 

In  general,  the  temporal  coherence  function  is  complex  when  the  pointing  angle  is  non¬ 
zero  because  antenna  pointing  results  in  a  mean  Doppler  shift  of  the  output  signal.  The 
antenna-filtered  decorrelation  time  Ta  is  then  calculated  by  finding  the  ]/e  point  of 
Ir4(r)l  with  the  result 


Id. 

h 


,2  ^2  ^\tQy  +  C\iQx  -  2CxtCytQxy 


1 


Qo 


(40) 


The  frozen-in  {Cxt  =  1,  Cyt  =  0)  and  turbulent  {Cxi  =  Cyi  =  0)  limits  of  Equation  40  are 


Ta 

I) 


li 

I) 


1 


(Frozen-in  Model) 

(Turbulent  Model) 


(41a) 

(41b) 


It  is  interesting  that  the  antenna-filtered  decorrelation  time  is  not  explicitly 
dependent  on  pointing  angle,  but  does  depend  on  the  ratio  of  the  antenna  beamwidth 
and  the  standard  deviation  of  the  angle-of-arrival  jitter  through  the  Q  factors.  Of 
course  as  beam  is  scanned  away  from  the  antenna  boresight,  the  effective  aperture  size 
will  decrease  thereby  broadening  the  beamwidth  and  implicitly  changing  the  value  of 
the  filtered  decorrelation  time. 


The  mean  Doppler  shift  (Da  due  to  antenna  pointing  is  given  by  the  imaginary 
part  of  rA(t)  and  is 


\C xiiQl)  -  Q  \)  -  C  V/0.CV  ytiQX)  -  Q x)  -  C xiQxy]l^{)y  !^y 

=  - - - ^ ^ - — 

H)V\) 

(42) 

This  expression  is  clearly  equal  to  zero  for  the  turbulent  model.  For  non-zero  values 
of  the  space-time  correlation  coefficients,  the  mean  Doppler  shift  is  proportional  to  the 
components  of  the  pointing  vector. 

Decorrelation  Distances.  The  .v-direction  decorrelation  distance  of  the  signal  out 
of  the  antenna  is  given  by  the  1/e  point  of  TaIx),  where 
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A  similar  expression  holds  for  PAiy). 

These  two  expressions  give  the  following  results  for  the  decorrelation  distances 
Sax  atid  ^Ay  of  the  signal  at  the  antenna  output: 


_  Qo 

~  ■ 


(44a) 

(44b) 


The  interpretation  of  these  quantities  is  that  Sax  and  SAy  are  the  distances  in  the  x-  or 
_y-direction,  respectively,  that  the  antenna  must  be  instantaneously  displaced  for  the 
normalized  cross  correlation  of  the  output  signal  to  have  a  value  of  Me.  As  was  true 
for  the  antenna-filtered  decorrelation  time,  these  quantities  do  not  explicitly  depend  on 
pointing  angle. 

2.3.3  Isotropic  Example. 

An  isotropic  example  is  presented  in  this  section  to  illustrate  some  of  the  effects 
of  the  antenna  on  the  parameters  discussed  above.  For  this  example,  both  the  angular 
scattering  and  the  antenna  beam  pattern  will  be  assumed  to  be  isotropic,  so 

^x  =  ^y  =  ^0 


and 


(In  2) 


(46) 


The  effect  of  antenna  filtering  is  illustrated  in  Figure  6,  which  shows  four  plots 
of  the  angle-delay  part  of  the  GPSD  at  the  outputs  of  uniformly-weighted  circular 
antennas  for  isotropic  scattering.  The  antennas  in  this  example  are  all  pointed  along 
the  line-of-sight.  The  upper  left  plot  is  the  same  as  in  Figure  2  and  is  for  a  point 
antenna  (D«Sq),  for  which  there  is  no  antenna  filtering.  The  other  three  plots  are  for 
cases  where  the  ratio  of  antenna  diameter  to  decorrelation  distance,  D/Sq,  is  equal  to  1, 
2,  and  4.  As  the  antenna  size  increases  for  a  given  value  of  Sq  or,  equivalently,  as  the 
decorrelation  distance  decreases  for  a  given  antenna  diameter  D,  more  of  the  energy 
arriving  at  large  scattering  angles  is  filtered  out. 
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Antenna  filtering  has  two  major  effects,  one  of  which  is  generally  bad  and  the 
other  potentially  good  in  terms  of  system  performance.  The  bad  effect  is  scattering 
loss.  Energy  that  arrives  at  large  angles  is  not  captured  by  the  relatively  narrow  beam 
of  a  large  aperture  antenna.  An  equivalent  statement  is  that  spatial  decorrelation  of  the 
received  electric  field  across  the  antenna  aperture  causes  a  reduction  in  the  effective 
gain  of  the  antenna.  The  magnitude  of  the  scattering  loss  is  a  function  of  the  ratio  of 
the  antenna  diameter  to  decorrelation  distance  of  the  incident  wave  and  a  function  of 
the  pointing  angle  of  the  antenna  beam  away  from  the  line-of-sight. 

The  potentially  beneficial  effect  of  antenna  filtering  for  beams  pointed  along  the 
line-of-sight  is  that  the  energy  which  is  filtered  out  is  that  which  arrives  at  relatively 
large  delays.  It  is  this  delayed  energy  that  causes  most  of  the  intersymbol  interference 
in  the  detection  and  demodulation  of  wide  bandwidth  signals.  Stated  another  way, 
because  the  antenna  filters  out  much  of  the  delayed  energy,  and  since  the  frequency 
selective  bandwidth  is  an  inverse  measure  of  the  signal  delay  spread,  the  filtering 
increases  the  frequency  selective  bandwidth  of  the  output  signal  relative  that  at  the 
antenna  input. 

To  simplify  the  filtering  equations  and  without  further  loss  of  generality,  it  can 
be  assumed  that  the  antenna  is  pointed  away  from  the  line-of-sight  in  the  .^:-direction 
and  that  the  rotation  angle  is  zero.  The  components  of  the  pointing  vector  are  then 
given  by 


271  . 

^  sin  c'o 

(47a) 

f<i)y  =  0  . 

(47b) 

With  the  assumption  of  isotropic  scattering  and  antennas,  the  Q  factors  become 

(48a) 
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(48b) 

At  this  point  it  is  convenient  to  write  the  antenna  beamwidth  in  terms  of  the 
antenna  size  to  eliminate  the  explicit  dependence  of  the  Q  factors  on  carrier 
wavelength.  Thus  let 

^0  -  ^0  Q 

(49) 

where,  for  uniformly-weighted  antennas. 


(iQ  = 


1.02899  Circular  antenna 
0.885893  Square  antenna 


(50) 


The  Q  factor  can  then  be  written  as 


Q 


-  < 


1  +  0.265  —2  Circular  antenna 

1  +  0.358  -y  Square  antenna 
^0 


(51) 


The  mean  received  power  for  isotropic  scattering  and  an  isotropic  antenna  is 


„  1 
Pa  =  ^exp 


41n2  ^ 

e  4  J 


(52) 


when  the  pointing  angle  is  assumed  to  be  small  compared  to  one  radian  so  sin  &q  is 
approximately  equal  to  0q.  For  a  given  value  of  Sq/D  (i.e.,  for  a  fixed  value  of  Q)  the 
effect  of  antenna  pointing,  as  expected,  is  to  monotonically  decrease  the  mean  received 
power  as  the  antenna  beam  is  pointed  farther  away  from  the  line-of-sight.  In  the  limit 
that  the  decorrelation  distance  is  much  smaller  than  the  antenna  diameter,  the  exponent 
in  Equation  52  approaches  zero  and  the  mean  received  power  is  approximately  equal  to 
\/Q  independent  of  pointing  angle.  In  other  words,  when  the  angular  scattering  is 
large  compared  to  the  antenna  beamwidth  and  pointing  angle,  the  mean  power  is 
insensitive  to  the  location  of  the  beam  peak  relative  to  the  line-of-sight. 

The  scattering  loss  in  decibels  for  a  uniformly-weighted  circular  antenna  is 
plotted  in  Figure  7  versus  the  ratio  Sq/D  when  the  pointing  angle  of  the  antenna  beam 
is  0,  9q/2  and  9q.  It  is  assumed  for  this  example  that  the  beamwidth  remains  constant  as 
the  beam  in  pointed  away  from  the  line-of-sight.  When  the  decorrelation  distance  is 
large  compared  to  the  antenna  diameter,  the  curves  approach  the  line-of-sight  loss  of 
beam  (0  dB  for  a  pointing  angle  equal  to  zero,  3  dB  for  a  pointing  angle  equal  to  one- 
half  beamwidth,  and  12  dB  for  a  pointing  angle  equal  to  a  full  beamwidth).  When 
Qq/D  is  small,  the  angle-of-arrival  spread  of  the  incident  signal  is  large  compared  to 
the  beamwidth,  so,  as  mentioned  above,  the  scattering  loss  is  insensitive  to  pointing 
angle  as  long  as  the  beam  remains  within  a  few  beamwidths  of  the  line-of-sight. 
Between  these  two  limits  the  scattering  loss  of  a  beam  pointed  away  from  the  line-of- 
sight  may  actually  decrease  with  decreasing  Qq/D  as  the  signal  is  scattered  away  from 
the  line-of-sight  and  into  the  beam. 

The  equation  for  the  ratio  of  the  filtered  to  unfiltered  frequency  selective 
bandwidth  for  this  isotropic  example  is 


Ia 

fo 


1  e' 

\q  +  81n2(C  -  1) 

1 _ j 

J 

(53) 
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Figure  7.  Scattering  loss  for  a  uniformly-weighted  circular  antenna  and 
isotropic  scattering. 


It  is  noteworthy  that  when  the  pointing  angle  is  zero  the  ratio //\//o  is  equal  to  Q,  which 
is  also  equal  to  the  scattering  loss  in  this  case.  Figure  8  shows  plots  of  the  ratio/tZ/o  as 
a  function  of  the  ratio  HqID  for  a  uniformly-weighted  circular  antenna  and  three 
pointing  angles. 

The  potentially  beneficial  effect  of  antenna  filtering  for  a  beam  pointed  along  the 
line-of-sight  is  that  the  signal  which  is  filtered  out  is  that  which  arrives  at  relatively 
large  delays.  Clearly  the  situation  is  different  if  the  antenna  is  pointed  away  from  ’he 
line-of-sight.  The  ratio /^//o  is  less  than  unity  for  non-zero  pointing  angles  and  values 
of  QqID  between  about  0.1  and  l.O.  This  implies  that  the  standard  deviation  of  the 
delay  jitter  is  increased  by  the  antenna.  This  does  not  imply  however  that  the  antenna 
is  somehow  creating  more  signal  power  at  long  delays  than  is  incident  on  the  antenna, 
as  measured  by  f^.  Rather  the  antenna  pointed  away  from  the  line-of-sight  is  weighting 
the  power  at  long  delays  more  than  that  at  short  delays  with  the  peak  weighting 
occurring  at  the  delay  that  corresponds  to  the  pointing  angle.  An  increased  value  of 
time  delay  jitter  standard  deviation  results.  Thus  intersymbol  interference  effects  may 
increase  in  the  output  as  an  antenna  beam  is  pointed  away  from  the  line-of-sight. 
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Figure  8.  Filtered  frequency  selective  bandwidth  for  a  uniformly- 
weighted  circular  antenna  and  isotropic  scattering. 


Antenna  filtering  also  affects  the  decorrelation  time  of  the  received  signal.  For 
isotropic  scattering  and  an  isotropic  antenna,  the  equation  for  the  ratio  TaITq  reduces  to 


^■() 


(?  +  (c5,+cJ,hi  -G) 


(54) 


This  equation  is  plotted  in  Figure  9  versus  the  ratio  ^q/D  for  various  values  of 


As  discussed  above,  the  antenna-filtered  value  of  decorrelation  time  is  not 
explicitly  dependent  on  pointing  angle.  It  does,  however,  depend  strongly  on  the 
model  for  the  temporal  fluctuations. 
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For  the  turbulent  model  (C  =  0)  the  Doppler  spectrum  is  independent  of  angle, 
so  the  signal  arriving  at  all  angles  has  the  same  decorrelation  time.  Consequently  the 
filtered  value  of  decorrelation  time  is  equal  to  that  of  the  incident  signal  (i.e.,  t^/Tq  =  1 
for  this  model).  For  larger  values  of  C  there  is  coupling  between  the  angular  and 
Doppler  spectra  of  the  incident  signal.  The  effect  of  an  antenna  is  to  narrow  the 
angular  spectrum  of  the  received  signal,  as  shown  in  Figure  7.  Thus  when  C  is  greater 
than  zero  the  antenna  also  narrows  the  Doppler  spectrum  of  the  received  signal. 
Because  the  decorrelation  time  of  the  signal  is  an  inverse  measure  of  the  width  of  the 
Doppler  spectrum,  the  decorrelation  time  of  the  signal  out  of  the  antenna  increases  as 
antenna  filtering  increases.  For  the  frozen-in  case,  C  is  equal  to  unity  and  XaITq  -  Q}^^. 
This  expression  gives  the  upper  limit  of  the  antenna-filtered  decorrelation  time. 


Figure  9.  Filtered  decorrelation  time  for  a  uniformly-weighted  circular 
antenna  and  isotropic  .scattering. 
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The  corresponding  mean  Doppler  frequency  shift  is 


(Oa 


IKUqC xt(Q  —  1  )  &Q 
TqQ  6q  D 


(56) 


The  normalized  mean  Doppler  shift  due  to  antenna  pointing,  TqCOa/Cxi  ,  is  plotted  in 
Figure  10  versus  the  ratio  Hq/D.  The  largest  mean  Doppler  frequency  shift  occurs 
when  J1q/D  is  approximately  equal  to  0.5. 


Figure  10.  Normalized  mean  Doppler  shift  due  to  antenna  pointing  for  a 
uniformly-weighted  circular  antenna  and  isotropic  scattering. 
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SECTION  3 

CHANNEL  SIMULATION 


A  statistical  channel  simulation  technique  is  described  in  this  section  that  is  used 
to  generate  realizations  of  the  impulse  response  functions  at  the  outputs  of  multiple 
antennas  with  spatial  and  temporal  correlation  properties  given  by  the  mutual 
coherence  function  and  with  Rayleigh  amplitude  statistics.  Realizations  generated  with 
this  technique  represent  only  the  diffractive  part  of  the  received  voltage.  They  are 
valid  only  under  strong-scattering  conditions  where  the  GPSD  is  valid  and  where 
Rayleigh  statistics  apply.  Under  these  conditions,  however,  they  represent  a  solution  of 
Maxwell’s  equations  for  propagation  of  RF  waves  through  randomly  structured 
ionization. 

The  channel  simulation  technique  for  the  General  Model  that  is  described  here 
was  developed  by  Dr.  Leon  A.  Wittwer  of  the  Defense  Nuclear  Agency  (DNA),  and 
has  been  implemented  in  the  channel  model  Fortran  code  ACIRF  written  by  the  author 
and  Dr.  Wittwer. 

The  basic  formalism  used  to  generate  statistical  realizations  of  the  channel 
impulse  response  function  without  antenna  effects  explicitly  included  was  first 
developed  by  Wittwer  [1980]  for  isotropic  irregularities.  Knepp  and  Wittwer  [1984] 
extended  the  technique  to  the  case  of  elongated  irregularities.  (The  elongated  case 
corresponds  to  a  90°  penetration  angle  and  to  an  infinite  axial  ratio.)  The  channel 
simulation  technique  was  further  generalized  by  Dana  [1986]  to  include  the  effects  of 
general  anisotropic  scattering  and  multiple  antennas. 

3.1  IMPULSE  RESPONSE  FUNCTION. 

A  key  assumption  used  to  generate  realizations  of  the  channel  impulse  response 
function  is  that  the  channel  is  statistically  stationary  (in  the  wide  sense)  in  space, 
frequency,  and  time.  As  a  consequence,  the  impulse  response  function  is  delta 
correlated  in  angle,  delay,  and  Doppler  frequency.  This  allows  the  impulse  response 
function  to  be  generated  from  white  Gaussian  noise  in  the  angle,  delay,  and  Doppler 
frequency  domains  and  then  Fourier  transformed  to  the  space  and  time  domains.  If 
necessary  for  a  particular  application,  the  Fourier  transform  from  delay  to  frequency 
may  also  be  performed  to  obtain  the  channel  transfer  function. 

The  impulse  response  function  at  the  output  of  an  aperture  antenna  located  at  Po 
and  pointed  in  direction  Kq  is  given  by  the  expression  [Dana,  1991] 

oo 

fiAipihU)  =  I  h{p,r,t)  Aip-po)  exp  liK^  ip-po)]  d^p  .  (57) 

-OO 


This  equation  represents  the  spatial  convolution  of  the  aperture  weighting  function 
A(p)  and  the  impulse  response  function  h(p,T,t)  of  the  signal  incident  on  the  face  of  the 
aperture. 
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The  channel  simulation  technique  depends  on  writing  hA{p,T,t)  in  terms  of 
Fourier  transforms  from  angle  to  space  and  from  Doppler  frequency  to  time.  To 
show  that  the  equation  can  be  written  in  this  form,  consider  writing  h{p,T,t)  in  terms 
of  its  Fourier  transform,  fi(K ±,r,0}o): 

oo  oo 

hip,T,t)  =  j  exp[i(K^  p-0JDt)]  kK^,z,C0D)  .  (58) 

-OO  ''  ‘  -oo 

The  apertufe  weighting  function  A(p)  can  also  be  written  in  terms  of  its  Fourier 
transform,  the  antenna  voltage  pattern  giK_i): 

OO 

9 

A{p)  =  \  g{KJ  exp  {iK^-p)j^  .  (59) 


Substituting  these  expressions  into  Equation  57  and  doing  the  usual  change  in  the  order 
of  integration  to  produce  a  delta  function  results  in 

OO  oo 

Aa(Po.i-.<)  =  j  ^  j  [«*!  Po-®e<)]  kK^.t.coo)  .  (60) 

-oo  ^  -oo 

This  equation  is  used  to  generate  realizations  of  the  impulse  response  function  by 
first  generating  random  samples  of  fi{l( uZ,0)o}  and  then  performing  the  indicated 
Fourier  transforms.  Because  of  the  assumption  of  a  statistically  stationary  channel, 
fi{K ]_,z,(i)d)  must  be  delta  correlated  in  angle,  delay,  and  Doppler  frequency: 

{fl{f<L,Z,(J0D)  fi*iK'iX,(OD))  =  S{Ki,T,(OD)HKi-K[)b{T-T^b{COD-Ojh)  .  (61) 

The  first-order  amplitude  statistics  of  the  complex  quantity  h(p,r,t)  are 
Rayleigh,  a  consequence  of  the  central  limit  theorem.  That  is,  h(p,T,t)  represents  the 
summation  of  many  scattered  waves  travelling  in  slightly  different  directions.  Thus 
the  two  orthogonal  components  of  h{p,x,t)  (either  the  in-phase  and  quadrature-pha.se 
components  or,  in  the  notation  used  in  this  report,  the  real  and  imaginary  parts)  are 
independent,  zero  mean,  normally-distributed  random  variables.  Consequently  the 
resulting  amplitude  is  Rayleigh  distributed,  and  the  resulting  phase  is  uniformly 
distributed.  Equation  60  indicates  that  hA{p,T,t)  is  the  summation  or  integration  of 
weighted  values  of  /z(p,r,r)  and  is  therefore  also  Rayleigh  distributed  (i.e.,  the  sum  of 
normally-distributed  random  variables  is  itself  normally  distributed).  Strictly  speaking 
the  statistics  of  fi(Kji,T,(Do)  could  be  almost  anything  that  obeys  Equation  61,  and  the 
central  limit  theorem  could  be  invoked  to  argue  that  h{p,T,t)  and  /2^(p,T,/)  are  zero- 
mean,  normally-distributed  complex  quantities.  Indeed  multiple  phase  screen 
techniques  can  be  used  to  generate  Rayleigh-distributed  realizations  of  h{p,T,t)  starting 
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with  just  random  phase  perturbations  of  an  electric  field.  However,  such  faith  in  the 
central  limit  theorem  is  not  necessary  if  fi{K ±,t,(Od)  starts  out  as  a  zero-mean, 
normally-distributed  complex  quantity.  This  allows  many  fewer  points  to  be  used  in 
performing  discrete  Fourier  transforms  from  angle  to  space  than  would  otherwise  be 
required  to  guarantee  Rayleigh  statistics. 

3.2  GENERATION  OF  REALIZATIONS. 


The  first  step  necessary  to  generate  realizations  of  the  impulse  response  function 
is  evaluation  of  the  GPSD  on  an  angular  Kx-Ky  gnd.  Once  the  power  in  the  angular 
grid  cells  has  been  obtained,  the.se  quantities  are  used  to  construct  random  samples  of 
the  angular  spectrum  of  the  signal.  A  delta-function  relationship  between  angle  and 
delay  is  used  to  relate  an  annulus  in  the  Kx-Ky  grid  to  specific  delay  bins,  and 
translation  properties  of  the  GPSD  are  used  to  relate  specific  angles  to  Doppler  bins. 
The  random  angular  spectrum  is  then  multiplied  by  the  antenna  beam  pattern,  and  a 
two-dimensional  discrete  Fourier  transform  (DFT)  is  performed  to  the  antenna  phase 
center  location.  A  final  Fourier  transform  from  the  Doppler  frequency  domain 
produces  the  impulse  response  as  a  function  of  time  and  delay.  Examples  of  such 
realizations  are  presented  in  Section  4. 

Before  launching  into  a  detailed  discussion  of  the  channel  simulation  technique, 
it  is  useful  to  consider  some  properties  of  the  GPSD. 

3.2.1  GPSD  Used  in  Channel  Modeling. 


Under  the  strong-scattering  conditions  in  the  ionosphere  that  cause  signal 
scintillation  at  radio  frequencies,  diffractive  effects  dominate  dispersive  effects.  In  this 
case  the  value  of  a  in  the  GPSD  is  large.  In  the  limit  that  a  approaches  infinity,  the 
angle-delay  part  of  the  GPSD  becomes 


Skt{KxJ)  =  KJlxJly  (Ocoh^^P 


K\nl  “ 

4  4 


X  5 


Ay{Kl  +  K\)Hl 

(^coh'^  ~  A 


(62) 


The  range  of  delay  in  this  equation  is  from  0  to  -t-oo  because  the  second  term  in  the 
delta  function  is  positive. 

This  geometric  optics  limit  results  in  a  delta-function  relationship  between  angle 
and  delay.  The  delta  function  in  this  equation  can  be  used  to  associate  the  signal  with  a 
particular  angle-of-arrival  to  a  specific  delay.  This  association  is  used  to  develop 
efficient  channel  simulation  techniques. 

Once  the  diffraction  limit  has  been  taken,  the  GPSD  used  in  channel  modeling 
can  be  integrated  over  delay  producing  an  angle-Doppler  form,  denoted  Skd-  After 
some  rearrangement  of  terms,  this  form  of  the  GPSD  is 
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oo 


(63) 


Skd{K^,cod)  =  j  SiKur,coD)  dr 
0 


-==±=^xp 


2  2 
ncop 

4 


X  exp 


(^X  -  C'xi'^o^p)^  —  Cyt)  +  (/Cy^y  -  CylTpCt)/))^  (1  -  Cxi) 

4(1  —  Cxt  —  C  yi) 


X  exp 


^CxtCyt  (f^x^x-Cxt'^oPip)  (f^y^y-CyiToCOp) 

4(1-Ci,-C2) 


This  form  of  the  GPSD  shows,  aside  from  the  leading  exponential  factor,  that  the 
effect  of  Doppler  frequency  is  to  shift  the  GPSD  in  Kx-Ky  space.  Thus  it  is  possible 
to  evaluate  Equation  63  for  zero  Doppler  frequency  and  then  to  shift  the  zero  point  of 
Kx-Ky  coordinate  system  to  obtain  the  GPSD  for  non-zero  Doppler  frequencies. 

Equation  63  does  present  a  problem  due  to  its  Kx-Ky  cross  term.  This  term 
makes  the  evaluation  of  the  signal  power  in  each  Kx-Ky  grid  cell  computationally 
difficult  and  therefore  time  consuming.  Of  course  a  simple  rotation  can  be  used  to 
eliminate  this  term.  Thus  consider  a  new  coordinate  system,  Kp-Kq,  where 

Kp  =  Kx  cos-d  +  Ky  s\x\T&  (64a) 

Kq  =  -Kx  sint?  +  Ky  cost?  .  (64b) 

The  rotation  angle  t?  between  the  Kx-Ky  and  Kp-Kq  coordinate  system  is  chosen  to 
eliminate  the  Kp-Kq  cross  term.  This  choice  results  in  the  following  expression  for 
the  tangent  of  the  rotation  angle: 


tan(2i?)  = 


^CxtCyt^x^y _ 

4(1  -  c|,)  -  i  J(1  -  c;,)  ■ 


(65) 


After  a  little  algebra,  it  can  be  shown  that  the  angle-Doppler  GPSD  in  the 
Kp-Kq  coordinate  system  is 


SKP(Kp,Kq,(Op) 


VkTq  exp 


2  2 

ncop 

4 


(66) 
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^Hp 
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{Kp  Qp  -  CpiT^cop)^ 

'fkHq 

{KqHq  -CqtTQCOp)^ 

‘•(l-Cpi) 

1 - 5-exp 
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(67a) 


when  the  following  definitions  are  used: 


cos^t?  sin^i/ 


sin^t?  cos^t? 


(67b) 


cost?  Cxt  sint?  Cyi 
Hx  ^ 


(68a) 


sint?  Cxt  cost?  Cy/ 

ix  h 


(68b) 


Two  important  features  of  the  channel  modeling  technique  developed  for  the 
general  model  are  the  evaluation  of  the  signal  power  in  this  lOtateu  coordinate  system 
using  simple  error  functions,  and  the  use  of  the  Doppler  shifting  property  of  the 
GPSD. 

3.2.2  Computationally  Efficient  form  of  the  Impulse  Response  Function. 

Equation  66  contains  terms  of  the  fo^m  KpHp-CpiX^WD  and  KqHq-CqtXQOo. 
Thus,  except  for  the  leading  Gaussian  term,  the  mean  signal  power  at  non-zero 
Doppler  frequencies  can  be  obtained  from  the  GPSD  evaluated  at  zero  Doppler 
frequency  and  shifted  in  Kp-Kq  space  by  the  appropriate  amount.  This  fact  is  used  to 
reduce  the  computations  necessary  to  generate  realizations  of  the  impulse  response 
function. 

To  see  the  consequences  of  the  shifting  property,  consider  the  impulse  response 
function  given  by  Equation  60,  which  is  the  basis  of  the  channel  simulation  technique. 
In  continuous  notation  and  using  the  delta-function  relationship  between  angle  and 
delay,  the  random  angle-Doppler-delay  spectrum  of  the  signal  may  be  written  as 


^(^i,T,a}o)  = 


^N(f( L,(Od)  if  T  = 


Ay{Kl  +  Kl)fx 


otherwise 


where  |^(A'l,fttD)  is  white  Gaussian  noise  with  unity  mean  power  and  with  the 
correlation  properties 

=  b{Kx-K[)b{(0D-(0l)) 

^,(Od)^s{K'x,(i)'d))  =  0  . 
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(70a) 

(70b) 


^  f^OX^Ky-  Koy)  ^S/{Kx,Ky,0)D) 

where  po  =  (.ro^Vo)-  Of  course  the  delta-function  relationship  between  angle  and  delay 
still  holds  although  it  is  not  explicitly  shown  in  this  equation. 

The  problem  with  this  expression  as  written  is  that  Skc  niust  be  computed  for 
each  new  Doppler  frequency,  which  is  time  consuming.  However  S/(c  can  be  evaluated 
once  at  zero  Doppler  frequency  and  shifted  for  non-zero  frequencies.  In  a  digital 
simulation  this  shifting  is  most  efficiently  done  in  discrete  steps.  Thus  let 

=  fflx^^x^x  +  £x^x  (7-‘>a) 

CyiT()(Oi)  =  rriyAKy  Qy  +  CyJ^y  (75b) 

where  AKx  and  AKy  are  the  angular  grid  cell  sizes  that  will  be  used  to  numerically 
evaluate  Equation  74, 
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mx 


int 


HxAKx 


(76a) 


niy 


int 


CylT^Qip 

HyAKy 


(76b) 


and  Ex  and  £y  are  the  residuals  after  the  discrete  shifts.  The  function  int  (•)  is  equal  to 
the  integer  part  oi  the  argument.  Now  define  a  shifted  angle-Doppler  GPSD,  denoted 
Sks- 


SKsit^l)  =  SkC 


Cxt'^oOip 

Qx 


Cyt^COp 
~  iy 


(77) 


After  substituting  this  into  the  equation  for  the  impulse  response  function  and  changing 
angular  variables  to 

Kx  =  Kx-£x  (78a) 

K'y  =  Ky-£y  ,  (78b) 


Equation  74  becomes 


fiAipoJJ) 


oo  oo  oo 

-OO  -oo  -oo 


X  }i(f<X+€x-/<i)X,  Ky+£y-K^iy)  ^Nif(x+  Ky+ Ey^COo)  (79) 

X  V S[){Q)p)  SKs{f<x^f^y)  • 

We  have  ignored  the  residual  shift  in  the  arguments  of  Sks  so  this  function  is  the 
result  of  a  discrete  shift  of  the  function  Skc-  Equation  79,  in  discrete  form,  is  used  to 
generate  the  impulse  response  functions  at  the  outputs  of  multiple  antennas. 

3.2.3  Discrete  Evaluation  of  the  GPSD. 

The  first  step  in  generating  the  impulse  response  function  at  the  output  of  an 
antenna  is  the  evaluation  of  the  GPSD  on  a  discrete  Kx- Ky-  (Od  grid.  TTie  delta- 
function  relationship  between  angle  and  delay  is  used  to  relate  signal  components 
within  an  angular  annulus  to  a  particular  delay  bin.  Thus  at  this  point  it  is  not 
necessary  to  include  delay  explicitly,  and  the  GPSD  can  be  integrated  over  this 
variable.  To  assure  conservation  of  energy  (or,  more  correctly,  to  conserve  signal 
power),  the  GPSD  is  integrated  over  each  Kx-Ky- (Od  grid  cell,  and  that  power  is 
assigned  to  the  center  point  of  the  cell.  A  procedure  for  efficiently  performing  the 
three-dimensional  integral  is  described  in  this  subsection. 


The  two-dimensional  angle  and  Doppler  frequency  grids  are  defined  by  the 
equations 


Kx 

=  kxAKx 

(-Nx/2<kx<NxJ2- 

■1) 

(80a) 

Ky 

=  kyAKy 

(-Nyl2  <ky<  Ny/2- 

■1) 

(80b) 

(Od 

=  kpAcop 

(-NDl2<kD<NDl2- 

-1)  . 

(80c) 

The  requirements  on  the  grid  cell  sizes  AKx,  AKy,  and  Acoq  and  on  the  number  of  grid 
cells  Nx,  Ny,  and  A/o  will  be  discussed  later. 

The  mean  signal  power  in  each  angle-Doppler  frequency  grid  cell  at  the  output 
of  an  antenna  is  then  given  by  the  integral  of  the  antenna  filtered  power  spectral 
density  function  over  each  grid  cell: 

{kx  +  \l2)AKx  (ky  +  \l2)AKy  {ko  +  \l2)Ao)[) 
f  I  I  \  f  dKx  ( dKy  r  dcop  „  _ 

^ ~  2^  I  27U  •  (81) 

{kx-\l2)AKx  {ky-\l2)AKy  (ko-\l2)A(OD 

Equation  81  is  completely  general,  but  it  requires  that  the  triple  integral  be  computed 
and  stored  separately  for  each  antenna  with  different  beamwidths  or  pointing  angles. 
If  it  is  assumed  that  the  antenna  beam  pattern  is  constant  over  a  Kx-Ky-coo  grid  cell, 
then  this  equation  can  be  approximated  by 

^Aikx,ky,kD)  =  G{kxAKx- Kqx^  kyAKy— K^y)  E KDikxyky,kD)  (82) 

where  EKoikx^ky^ko)  is  the  incident  signal  power  in  the  Kx-Ky-coo  grid  cell.  The 
accuracy  of  this  approximation  is  addressed  in  Appendix  A  where  it  is  shown  to 
conserve  energy  (or  power)  to  within  a  small  fraction  of  a  percent. 

To  produce  an  efficient  channel  model,  the  quantity  EKD{kx,ky,kD)  must  be 
readily  evaluated.  This  is  a  major  problem  of  the  general  model.  Straightforward 
evaluation  of  Ekd  requires  a  closed-form  expression  for  the  triple  integral 

(kx  +  ll2)AKx  (ky  +  l/2)AKy  {k/y  +  \/2)Ao)p 

EKDikx,ky,kD)  =  \  2k  J  27c  27t  (83) 

(kx-\/2)AKx  (ky-\l2)AKy  {ko-\l2)Ao)D 

where  the  integrand  is  given  by  Equations  71-73.  Clearly  the  Kx-Ky  and  angle- 
Doppler  cross  terms  in  the  expression  for  SKD(i^i,<^D)  do  not  allow  a  simple  closed 
form  expression  for  Ekd  for  the  general  ca.se,  although  such  expressions  can  be 
obtained  in  the  frozen-in  and  turbulent  limits. 
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Two  “tricks”  are  used  to  evaluate  Equation  83  efficiently.  The  first  trick  is  to 
take  advantage  of  the  translational  properties  of  the  GPSD  described  in  the  previous 
subsection.  The  power  in  a  Kx-Ky-coo  grid  cell  is 

(ko  +  ]/2)ao)d 

EKDil<xyky,kD)  =  27^  Sd(<Ud)  (84) 

(ko  -  \/2)Aa}o 


{kj,  +  \/2)AKx  iky  +  \/2)AKy 


Skc\Kx- 


Cxt'^oO^D 


Ky- 


CylToCOp 


{kx-\/2)AK^  iky-\/2)AKy 


The  key  to  simplifying  this  expression  is  to  note  that  the  Doppler  frequency  grid  cell 
size  is  relatively  small  because  of  the  large  number  of  Doppler  samples  required  to 
produce  a  long  time  realization.  Thus  it  can  be  assumed  that  Skc  is  constant  over  a 
Doppler  frequency  cell,  and  Equation  84  reduces  to 

EKDikx,ky,kD)  =  Epikp)  Encikx-mx,  ky-my)  (85) 

where  Epikp)  in  terms  of  complimentary  error  functions,  erfc  (•),  is 


Eoiko)  =  2 


1  j  ,,  -\/2)ToA(Od 


-  erfc 


ikD  +  ]/2)ToAO)D 
2 


The  quantity  Excikx-mx,  ky-niy)  is  the  power  in  a  shifted  Kx-Ky  grid  cell.  Because 
of  the  Kx-Ky  cross  terms  in  the  expression  for  Skc,  an  easily  evaluated  closed-form 
result  still  has  not  been  obtained  for  Ekc. 


The  second  trick  used  in  the  channel  modeling  technique  is  to  note  that  a  rotation 
by  the  angle  t?  (Eqn.  65)  in  the  Kx-Ky  plane  produces  an  orthogonal  form  of  the 
GPSD  that  does  not  contain  angular  cross  terms,  and  is  therefore  readily  integrated. 
This  orthogonalized  GPSD  is  given  by  Equation  66,  which  has  the  following  form  for 
its  angular  part: 


SKc{Kp,Kq) 


4(1  -C^i)  4(1  -C^t) 


(87) 


The  signal  power  in  a  Kp-Kq  grid  cell,  with  indices  kp  and  kq  respectively,  is 


EKcikp,kq)  -  Epikp)  Eqikq) 


(88) 


where 
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Ep{kp)  =  2]erfc 


{kp  —  \l'l)AKpQ.p 


2^1  -  C 
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-  erfc 


ikp  +  MDAKpUp 

.  2V 1  -  Cp2 


(89) 


A  similar  expression  holds  for  Eq{kq). 

Now  EKc{kp,kq)  can  be  computed  on  a  fine  Kp-Kq  grid,  and  the  values  simply 
assigned  to  the  Kx-Ky  grid  cell  in  which  they  fall.  The  Kx-Ky  cell  indices  are 
computed  as  follows: 


kx 

ky 


kpAK p  cosr>  -  kgAKg  sinr9' 
AKx 

kpAKp  sint3  +  kgAKg  cosr? 
AKy 


(90a) 

(90b) 


The  total  power  in  a  Kx-Ky  grid  cell  is  then  the  sum  of  all  EKcikp,kq)  values  that  fall 
within  the  Kx-Ky  cell.  Roughly  ten  Kp-Kg  grid  cells  are  required  within  each 
Kx-Ky  cell  for  this  brute-force  procedure  to  work.  Thus  the  Kp-Kg  cell  sizes  are 
determined  by  the  expressions 


cos^i?  sin^t^  \ 
*  (AKy)\  ‘ 


sin^t^  cos^t5  I 

XAKxf  {AKyfl  ' 


(91a) 


(91b) 


A  detailed  description  of  the  algorithms  used  to  compute  Encikx-mx,  ky-rriy) 
and  to  shift  this  array  for  different  Doppler  frequencies  is  given  in  Appendix  B. 


3.2.4  Random  Realizations. 


The  next  step  in  the  channel  modeling  technique  is  to  generate  a  random 
realization  of  the  angle-Doppler  spectrum  of  the  impulse  response  function  and  to 
assign  the  spectral  components  to  delay  bins  using  the  delta-function  relationship 
between  angle  and  delay.  Discrete  Fourier  transforms  are  then  performed  to  obtain 
the  impulse  response  function. 

Assignment  of  Angular  Spectral  Components  to  Delay  Bins.  The  delta-function 
relationship  between  angle  and  delay  (Eqn.  62)  in  the  diffraction-limited  form  of  the 
GPSD  is  used  to  assign  angular  spectral  components  to  discrete  delay  bins.  This  form 
of  the  GPSD  is  non-zero  only  when 
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I  =  (92) 

^OJcoh 

A  straightforward  approach  to  assigning  angular  spectral  components  to  delay 
bins  is  to  compute  the  right-hand  side  of  Equation  92  at  the  center  of  each  Kx-Ky  grid 
cell  and  to  compute  the  index  of  the  delay  bin  using 


j  =  int 


=  mt 


Ay(Kl  +  K\)il 


where  At  is  the  sample  size  of  the  delay  bins.  The  problem  with  this  approach  is  that 
when  the  delay  sample  size  is  sufficiently  small,  the  number  of  angular  spectral 
components  that  fall  within  a  delay  bin  may  vary  substantially  from  one  delay  bin  to 
the  next  producing  ragged  statistics.  A  simple  solution  to  this  problem  is  to  randomly 
wiggle  the  angular  grid  cell  centers  before  applying  Equation  93.  This  spreads  angular 
spectral  components  more  or  less  uniformly  into  any  one  of  several  delay  bins,  and 
results  in  better  agreement  between  the  ensemble  signal  power  in  a  delay  bin  and  the 
realization  power  in  that  bin.  The  randomly-wiggled  angular  grid  cell  centers  are 
computed  as 


Kr  = 


AKx 

(94a) 

AKy 

(94b) 

+  ^Ux-j  AK 


Cy  +  ^Uy  -  2 


where  ^ux  and  ^uy  are  independent,  uniformly  distributed  random  numbers  on  the 
interval  [0,1).  These  wiggled  cell  centers  are  then  used  in  Equation  93  to  compute  the 
corresponding  j  index  of  the  delay  grid. 

In  this  way  each  angular  spectral  component  is  assigned  to  a  unique  delay  bin. 
Because  the  angular  spectral  components  are  uncorrelated,  this  procedure  also 
guarantees  that  the  impulse  response  function  is  uncorrelated  from  one  delay  bin  to 
another. 

Discrete  Representation  of  Impulse  Response  Function.  The  discrete  impulse 
response  function  is  defined  on  a  discrete  time  and  delay  grids  defined  by  the  equations 


/  =  kjAt 
T  =  jAr  . 


{kr  =  1,  2,  ,  Nt) 

0  =0,  1,  •••  ,Ar-l) 


The  requirements  on  the  discrete  time  step  At,  the  number  to  time  steps  Nt,  the  delay 
sample  size  At,  and  the  number  of  delay  bins  Nx  will  be  discussed  in  Section  3.3. 
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Equation  79  gives  tiie  impulse  response  function  in  terms  of  Fourier  transforms 
from  the  random  angle- Doppier  spectral  components  to  the  time  domain  at  the  location 
of  the  phase  center  of  each  antenna.  In  discrete  form,  this  equation  is 


hAijAT,hi^t) 


Nol2-\ 

A  Op 

AKxAKyAcopAz  /  j  2k 
kp  =  -Nofl 


Nxl2-\ 


Ny/2-\ 


ky  =-Ny/2 


X  exp  ( i[{kxAKx  +  £x)xo  +  {kyAKy  +  ey)yQ  -  kpAcookjAt] } 

^  Si^xAKx+ £x- KQx,kyAKy  + £y  ^oy)  ^iV(k-X'.ky,kD) 

X  ylEpikp)  EKsikxAKxJ'yAKy)  .  (97) 

The  normalization  factor,  ^K^IAKxAKyAcopAr,  has  been  chosen  so  that  hA(JAr,kTAt)AT 
represents  the  received  signal  during  the  delay  interval  jArto  (J+  \  )At.  As  the  Kx  and 
Ky  sums  are  performed,  Equation  93  is  used  to  assign  angular  spectral  components  to 
delay  bins.  Then  the  signal  components  in  each  delay  bin  are  Fourier  transformed 
from  the  Doppler  domain  to  the  time  domain. 

The  quantity  is  a  complex,  zero-mean,  Gaussian  random  variable 

with  the  properties 


{is^{a,h,c)^y{a,l3,y))  =  ^a,ah,p^c,y  (98a) 

{^w{a,b,c))  =■  0  (98b) 

=  0  (98c) 

where  bm.n  is  the  Kronecker  delta  symbol.  A  convenient  method  of  generating  the 
complex,  zero-mean,  Gaussian  random  numbers  is  to  use  the  following  equation 

=  V^^7Vn((^t/i)  exp  (27t/(^(y2)  (99) 


where  and  gui  tire  independent  random  numbers  uniformly  distributed  on  the 
interval  (0,1),  and  Pq  is  the  mean  power  of  the  random  samples  {Pq  =  =  1  for 

this  application). 

In  comparing  the  discrete  equation  for  the  impulse  response  function  with  its 
continuous-variable  analog  (Eqn.  79),  note  that  the  residual  shifts  £x  and  £y  may  be 
ignored  in  the  arguments  of  the  random  spectral  components,  ^v,  because  shifted  white 
Gaussian  noise  is  still  white  Gaussian  noise. 

Elimination  of  the  DC  Component.  As  written.  Equation  (97)  "or  the  discrete 
impulse  response  function  allows  a  Doppler  spectral  component  with  zero-Doppler 
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frequency  (i.e.,  the  kD  =  0  component).  This  component  will  in  turn  result  in  a  DC 
component  in  the  time  domain  realization,  which  may  be  undesirable,  particularly  if 
the  DC  component  is  large. 

A  simple  solution  to  this  problem  is  to  set  the  zero-Doppler  frequency 
component  of  ^N{kx,ky,kD)  to  zero.  Just  doing  this,  however,  results  in  a  reduction  in 
the  mean  power  in  the  impulse  response  function  by  the  zero-Doppler  frequency 
power,  £d(0). 

This  latter  problem  can  be  solved  simply  by  allowing  the  Doppler  frequency 
bins  adjacent  to  zero  Doppler  to  expand  in  size.  Thus  the  first  positive  Doppler 
frequency  bin  encompasses  frequencies  0  to  'iAcool2  and  has  power  Ed{\)  +  Ed{0)/2. 
Similarly,  the  first  negative  Doppler  frequency  bin  encompasses  frequencies  -'iAcool^ 
to  0  and  has  power  f^l-l )  +  £^d(0)/2.  All  other  Doppler  frequency  bins  encompass 
frequencies  l/2)Am/)  to  (Ad+  \I2)Acod  and  have  power  Epiko). 

3.3  GRIDS. 

Angle  and  Doppler  frequency  grid  sizes  are  determined  by  requiring  that  the 
angle-Doppler  frequency  grid  encompass  a  large  fraction,  say  0.999,  of  the  power  in 
the  GPSD  of  the  signal.  The  0.001  error  must  then  be  allocated  between  the  angular 
and  Doppler  parts  of  the  three-dimensional  grid.  An  arbitrary,  but  intuitively 
reasonable,  allocation  is  to  divide  the  error  equally  between  the  angular  and  Doppler 
frequency  parts  of  the  grid  and  equally  between  the  two  angular  components.  Thus  the 
Doppler  frequency  grid  limits  are  determined  by  requiring  that  the  Doppler  frequency 
grid  encompass  (0.999)''^^  of  the  Doppler  frequency  power,  and  each  angular  grid  must 
encompass  (0.999)''^'‘  of  the  angular  power. 

The  angular  and  Doppler  frequency  power  spectra  are  all  Gaussian.  Thus  each 
can  separately  be  written  in  the  form 


SiK)  =  ^^K 


exp 


4j 


(100) 


where  X'  is  a  normalized  angle  or  Doppler  frequency  (i.e.,  k  is  equal  to  Kx&x^  KyUy  or 
T()0Jp).  In  order  for  a  k  grid  to  encompass  a  fraction  of  the  signal  power,  it  must 
extend  from  -Kmax  to  +Kfnax  where 

^max 

Co  =  I  SiK)  (Ik  .  (101) 

'  Krniix 

This  equation  is  easily  solved  for  K,nax  in  tenns  of  Co  with  the  result 

^max  =  2  eiT  1  (^o)  (102) 


.J9 


where  erf-'  (■)  is  the  inverse  error  function.  If  is  chosen  to  be  (0.999)'^^  for  the 
Doppler  frequency  grid,  then 

KD,max  =  2x  2.4612  =  4.9224  ,  (103a) 

and  if  is  chosen  to  be  (0.999)'^'^  for  either  angular  grid,  then 

i^K,max  =  2  x  2.5895  =  5.1790  .  (103b) 

A  second  requirement  on  the  sizes  of  the  angular,  Doppler  frequency,  and  delay 
grids  is  that  they  be  defined  at  the  output  of  the  antennas,  thereby  eliminating  regions 
of  the  grids  that  contribute  to  the  signal  power  incident  on  the  antennas  but,  because  of 
antenna  filtering,  do  not  contribute  to  the  power  of  the  output  signals.  Much  of  the 
complexity  of  the  algorithms  used  to  determine  grid  sizes  is  a  result  of  this 
requirement,  but  computing  grid  sizes  in  this  way  results  in  a  substantial  reduction  in 
the  size  of  the  grids,  and  therefore  in  computation  time,  when  antenna  filtering  effects 
are  large. 

The  numbers  of  cells  in  the  angular  (Nx  and  Ny),  delay  (At),  and  time  (Nj) 
grids  are  inputs  to  the  channel  simulation.  The  delay  sample  size  (At)  and  the  number 
of  samples  per  decorrelation  time  (Nq)  are  also  inputs.  From  these  quantities  and  the 
channel  and  antenna  parameters,  the  angular  {AKx  and  AKy),  Doppler  frequency 
(Acod),  and  time  {At)  grid  cell  sizes  and  the  required  number  of  Doppler  frequency 
samples  (No)  are  computed.  Requirements  on  input  grid  parameters  and  consistency 
checks  on  computed  grid  parameters  are  described  in  the  next  subsections. 

3.3.1  Angular  Grid. 

Angular  grid  sizes  are  determined  by  the  requirement  that  the  fraction  (0.999)'^^ 
(i.e.,  0.9995)  of  the  signal  power  after  antenna  filtering  be  contained  in  the  two- 
dimensional  angular  grid.  First  consider  the  Kx  grid.  Because  of  the  symmetry  in  the 
angular  grid,  the  requirements  on  the  Ky  grid  can  then  be  obtained  by  analogy. 

The  Kx  power  spectrum  at  the  output  of  an  antenna  is 


oo  cx?  oo 

I  dr  {  Koy)S(K^.z.ao) 

-OO  -oo  -oo 


(104) 


Vrtjgx 

7^ 


exp 


-  a\Klu-a\.Kly 


Ql  K\Si\ 
Qy  4 


Qy  ]  2  ^AQy 


where 
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^y,max 


^K,max  \^yQx  ~^xQxy\ 

“''y  *  %GoV^ 


(108b) 


The  first  terms  in  the  expressions  for  Kx,max  and  Ky^niax  give  the  required 
extent  of  the  grid  when  the  antenna  is  pointed  along  the  line-of-sight.  The  second 
terms,  which  are  non-zero  only  when  the  antenna  is  pointed  away  from  the  line-of- 
sight,  give  the  amount  by  which  the  grid  must  be  extended  in  order  for  the  grid  to 
encompass  the  beam. 


Clearly  Kx,max  and  Ky^^ax  depend  on  antenna  beamwidths  and  pointing  angles 
because  of  the  A  and  Q  factors.  If  there  are  multiple  antennas,  Kx,max  and  Ky^rnax 
must  be  computed  for  each  antenna.  The  largest  values  are  then  used  to  determine  the 
boundaries  of  the  angular  grid. 


The  angular  grid  cell  sizes  can  now  be  computed  as 


(109a) 


AK:, 

AKy 


^^x,max 

Nx 

^^y,max 

Ny 


where  the  number  of  grid  cells,  Nx  and  Ny,  are  inputs  to  the  channel  model. 


(109b) 


A  reasonable  minimum  value  for  the  number  of  Kx  or  Ky  grid  cells  is  32. 
However,  this  number  may  not  be  sufficient  if  there  are  multiple  antennas  with 
different  phase  center  locations.  Consider  the  two  antennas  with  the  largest 
separations,  dx  and  dy,  in  the  x-y  plane.  Because  the  impulse  response  functions  at  the 
outputs  of  the  two  antennas  are  generated  by  discrete  Fourier  transforms  from  the 
angular  domain  to  the  phase  center  locations  of  the  antenna,  the  unambiguous  distances, 
2kIAKx  and  InjAKy,  of  the  DFTs  must  exceed  the  maximum  antenna  separations,  say 
by  a  factor  of  2.  This  requirement  puts  upper  limits  on  AKx  and  AKyi 


AKx  <  ^  (110a) 

AKy  <^  .  (110b) 

If  these  criteria  are  not  met,  then  Nx  and/or  Ny  must  be  increased,  thereby  decreasing 
AKx  and/or  AKy,  until  they  are  met.  The  minimum  required  values  for  Nx  and  Ny  can 
then  be  written  as 


Nx 

Ny 


max 


max 


^dxKx,max 

K 

2dyKy^max 

TU 


(Ilia) 

(111b) 


3.3.2  Doppler  Frequency  and  Time  Grids. 

The  Doppler  frequency  grid  size  is  also  determined  by  the  requirement  that  99.9 
percent  of  the  signal  power  after  antenna  filtering  be  contained  in  the  angle-Doppler 
frequency  grid.  Thus  the  antenna-filtered  Doppler  power  spectrum  is  required.  This 
function  is  most  easily  obtained  by  noting  that  the  temporal  coherence  function  has  the 
form 


Clio  =  Pa  exp 


+  i(i)At 


(112) 


Recall  from  Section  2.3  that  is  the  mean  Doppler  shift  due  to  antenna  pointing. 
The  Doppler  power  spectrum  is  then  given  by  the  equation 
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The  calculation  of  the  limits  on  the  Doppler  frequency  grid  is  exactly  analogous 
to  that  done  for  the  angular  grid.  The  limits  of  the  Wq  grid  are  determined  by  setting 
^0  equal  (0.999)'''"  in  the  equation 

(^D.max 

Solving  for 


Co 


I 

1 


|l  +  erf 


(115) 


gives  the  following  approximate  result  for  cOD^max- 

I^D,max  I  ,  1 

^D,max  -  -r  •  (116) 

The  first  term  in  this  expression  gives  the  required  maximum  Doppler 
frequency  when  the  antenna  is  pointed  along  the  line-of-sight,  and  the  second  term  is 
the  result  of  the  mean  Doppler  shift  effect  of  antenna  pointing.  If  there  are  multiple 
antennas,  (Oo,max  niust  be  calculated  for  each  antenna,  and  the  largest  value  used  to 
determine  the  Doppler  frequency  grid  size. 

At  this  point  the  required  number  of  Doppler  frequencies.  No,  is  still 
unspecified.  However,  because  a  fast  Fourier  transform  (FFT)  will  be  used  to 
transform  from  Doppler  frequency  to  time,  the  time  grid  requirements  may  be  used  to 
derive  the  Doppler  frequency  grid  cell  size  AcOq  and  then  the  required  number  of 
Doppler  frequency  samples. 

Consider  the  requirements  on  the  time  samples.  Dana  |1982,  1988]  has  shown 
that  at  least  10  samples  per  decorrelation  time  are  required  to  reproduce  accurately  the 
temporal  statistics  of  Rayleigh  fading.  This  is  also  a  DNA  requirement  on  Rayleigh 
fading  realizations  of  the  impulse  respon.se  function  [Wittwer  1980].  The  time  grid 
cell  size  is  then 


Ai 


'^A,min 

No 


(117) 
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where  /Vq  is  the  number  of  samples  per  decorrelation  time  {Nq  must  be  greater  than  or 
equal  to  10),  and  TA,min  is  the  smallest  value  of  the  filtered  decorrelation  time  for  all 
antennas. 


In  addition,  DNA  requires  that  there  be  at  least  100  decorrelation  times  in  all 
realizations  of  the  impulse  response  function  at  the  antenna  output.  Thus 


Nj  > 


lOOr,^ 

Al 


,max 


(118) 


w'here  TA,max  is  the  largest  value  of  the  filtered  decorrelation  time  for  all  antennas.  If 
this  condition  is  not  met,  the  number  of  time  samples,  /Vy,  must  be  increased.  It  is  also 
necessary  that  N  f  be  equal  to  a  power  of  2  to  use  an  FFT.  The  minimum  value  of  Nj 
is  then  1024  to  meet  the  requirement  of  Equation  118  with  A'o  equal  to  10.  Further 
discussion  of  the  required  number  of  time  samples  is  in  Appendix  C. 

Because  of  the  FFT  relationship  between  the  time  and  Doppler  frequency 
domains,  the  Doppler  frequency  grid  cell  size  is 


2tc 


~  NjAt  ■ 


(119) 


The  minimum  number  of  Doppler  frequency  samples  necessary  for  the  grid  to 
encompass  the  maximum  required  Doppler  frequency  is  then  given  by 


No  = 


^i‘^I),max  _  A' /  COq ^max  Tl  ,min 


Acoo 


TU/V, 


(120) 


In  general.  No  will  be  smaller  than  N i  implying  that  fewer  than  A/y  Doppler 
frequency  samples  are  required.  The  Doppler  frequency  arrays  may  then  be  zero- 
padded  to  N I  samples  before  the  FF'F  is  performed.  If,  however.  No  is  greater  than 
iV/.  the  implication  is  that  there  are  too  few  samples  per  decorrelation  time,  and  Nq 
must  be  increased. 


The  minimum  number  of  Doppler  frequency  samples  can  be  computed  from 
Fiquations  116  and  120.  If  all  antennas  are  pointed  along  the  line-of-sight,  then  the 
minimum  value  of /Vy;  is 


,.  _  ^0,ma\N ! 

No.niin  -  -  - 


(121) 


f'or  realizations  with  100  decorrelatit)n  times  (A'/.'A'o  -  100),  the  minimum  number  of 
Doppler  frequency  samples  is  apprt)\imately  L'T).  If  antennas  are  pointed  auay  from 
the  line-of-sight,  the  required  number  of  Doppler  frequency  samples  will  increase 
beyond  150. 
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3.3.3  Delay  (Jrid. 


I'he  delay  sample  size  is  usually  chosen  on  the  basis  of  the  modulation  bandwidth 
of  the  transmitted  signal,  and  is  therefore  not  a  parameter  that  is  under  the  direct 
control  of  the  channel  simulation.  For  example,  in  a  phase-shift  keying  (PSK) 
application  there  must  be  at  least  two  delay  samples  per  channel  symbol  to  simulate 
accurately  the  transmitted  frequency  spectrum.  The  delay  sample  size  is  then  generally 
chosen  to  be  equal  to  one-half  the  channel  symbol  period.  In  a  frequency-shift  keying 
(FSK)  application  with  frequency  hopping,  the  delay  sample  size  is  chosen  so  that  the 
unambiguous  frequency  bandwidth  of  the  impulse  response  function,  IMr,  exceeds  the 
hopping  bandwidth  by  some  comfortable  margin. 

The  number  of  delay  bins  is  an  input  to  the  channel  simulation.  The 
requirement  on  both  Nj-and  At  is  that  the  realization  delay  grid  size  /V^Az  encompass 
at  least  97.5  percent  of  the  delayed  signal  power  at  the  outputs  of  the  antennas.  A 
somewhat  smaller  percentage  is  used  to  define  the  limits  of  the  delay  grid  than  is  used 
to  define  other  grid  limits  because  of  the  slower  decay  of  signal  power  with  delay  than 
with  angle  and  Doppler  frequency  (exponential  decay  with  delay  versus  Gaussian  decay 
with  angle  and  Doppler  frequency  ). 

The  ensemble  signal  power  in  the  delay  bins  is  given  by  the  integral 


U+  i}Ar 

Pj  =  1 5,4(1)  Jr  (122) 

jAX 


where  S,\{T)  is  the  delay  power  spectral  density  at  the  output  of  an  antenna.  The 
general  expression  for  S,\kT)  is  quite  complicated,  especially  when  the  antenna  is 
pointed  away  from  the  line-of-sight,  and  will  not  be  given  here.  The  reader  is 
referred  to  Frasier  1 199()|  for  details  on  5^(1). 


The  total  signal  power  in  the  delay  grid. 


Pz 


Nr-\ 

iPj 

j=() 


(123) 


must  be  greater  than  or  equal  to  0.915P,\.  If  not,  either  Nr  or  At  or  both  must  be 
increased. 


An  estimalc  of  the  required  maximum  realization  delay  grid  size.  Nr  At,  can  be 
obtained  by  considering  the  simple  case  of  isotropic  scattering  and  isotropic  antennas 
pointed  along  the  line-of-sight.  In  this  case,  the  delay  power  spectral  density  is 

Sa(T)  =  COcoh  i-Q(OcohT)  (124) 
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where  Q  is  given  by  Equation  (51).  The  maximum  required  delay  is  computed  by 
inverting  the  equation: 


'^max 


J  5^(t)  dx  =  UP  A  , 


(125) 


where  is  equal  to  0.975. 

An  estimate  of  the  maximum  required  delay  is: 


'^max  -  A-j-  Ax 


-ln(l-Co)  _ 

iKfoQ  InfA 


(126) 


This  equation  is  valid  only  for  the  conditions  listed  above.  However,  ACIRF  will 
compute  the  required  maximum  delay  for  the  actual  input  antenna  configurations  and 
channel  parameters,  and  will  compare  its  computed  value  of  Xmax  with  the  input  value 
of  maximum  delay,  NfAx.  A  warning  message  will  advise  the  user  if  NfAx  is  too 
big,  and  the  code  will  stop  if  N^Ax  is  too  small. 


46 


SECTION  4 

MATCHED  FILTER  EXAMPLES 


Examples  of  the  received  voltage  out  of  a  filter  matched  to  a  transmitted  square 
pulse  are  presented  in  this  section.  These  examples  are  intended  to  illustrate  the  effects 
of  frequency  selectivity  and  antenna  filtering  on  transionospheric  communication  links 
and  to  illustrate  the  differences  in  the  structure  of  the  received  signal  depending  on 
whether  the  frozen-in,  turbulent,  or  general  models  are  used  to  generate  the  impulse 
response  function  realizations.  The  following  subsection  also  illustrates  how  the 
received  voltage  can  be  constructed  from  the  impulse  response  function  realizations  in 
a  digital  link  simulation.  Additional  examples  for  specific  system  applications  may  be 
found  in  Bogusch.  et.  al.  (1981  ]  and  Bogusch,  Guigliano,  and  Knepp  [1983]. 

4.1  MATCHED  FILTER  OUTPUT  SIGNAL. 

The  output  of  a  matched  filter  can  be  constructed  by  convolving  the  impulse 
response  function  of  the  channel  and  antenna  with  the  combined  impulse  response 
function  of  the  transmitter  and  receiver.  A  second  approach  is  to  construct  the 
combined  frequency  response  of  the  transmitter,  channel,  antenna,  and  receiver  and 
then  to  Fourier  transform  that  result  to  obtain  the  matched-filter  output.  This  latter 
approach  is  used  for  the  examples  presented  in  this  section. 

The  starting  point  is  to  calculate  the  channel/antenna  transfer  function  that  is  the 
F-ourier  transform  of  the  impulse  response  function: 


H{ojj)  -  I exp  i-icoT)  dr  .  (127) 

0 

This  function  represents  the  response  of  the  channel  and  antenna  at  time  /  to  a 
transmitted  sinewave  with  radian  frequency  (O. 

For  a  transmitted  square  pulse  with  a  chip  duration  Tc,  the  received  voltage  out 
of  the  matched  filter  at  time  t  can  be  written  as 


r{r,n 
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J  M{(0)  H(cod)  exp  (/cur) 

-oo 


dco 

2k 


(128) 


where  r  is  the  time  delay  of  the  matched  filter  relative  to  the  nominal  time-of-arrival 
(i.e.,  the  time-of-arrival  under  benign  propagation  conditions).  The  combined 
spectrum  of  the  transmitted  square  pulse  and  the  receiver  matched  filter  is 


M(co) 


sin'  (ct)rt/2) 
‘  ((0TJ2f 


(129) 
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The  impulse  response  function  is  generated  with  delay  samples  of  size  Ar,  so 
the  discrete  channel/antenna  transfer  function  has  an  unambiguous  frequency  response 
of  2k/ At  radians.  If  this  bandwidth  is  divided  into  Np  frequency  samples,  the  discrete 
channel/antenna  transfer  function  at  time  kjAt  is 


A/t-  1 

H{kpA(0,kTAt)  =  h(jAT,krAt)AT  exp  [- ijArkpAo)  ]  (130) 

7=0 


where  Aco  =  2k/(NfAt).  Recall  that  the  normalization  of  the  impulse  response 
function  is  such  that  the  factor  At  following  h(jAT,kTAt)  must  be  included.  The  range 
of  the  index  kr  in  this  equation  is  from  -Nf/2  to  iVf/2-]  representing  a  range  of 
frequencies  from  -NfAo}/2  to  (N f-\)Ao)I2.  Of  course  the  number  of  frequency 
samples  should  be  greater  than  or  equal  to  the  number  of  delay  samples  in  order  for 
the  transfer  function  to  preserve  the  information  contained  in  the  impulse  response 
function.  If  the  minimum  required  number  of  delay  samples  is  chosen,  it  may  be 
necessary  to  select  the  number  of  frequency  samples  to  be  greater  than  the  number  of 
delay  samples  to  minimize  delay  aliasing  of  the  matched-filter  output. 

The  voltage  out  of  the  matched  filter,  versus  time  and  relative  delay,  is  given  by: 


r{T,kT^t) 


Nf/2  - 1 

AcoTc  [sin^  {kpAoTc/^) 

2^  I  {kFA0)Tc/2f 

A-,.-=-/V/./2 


H(kFA(o,krAt)  exp  (ikpAcor) 


(131) 


If  the  delay  sample  size  Azof  the  realization  of  the  impulse  response  function  is  chosen 
to  be  Tc/2,  then  A(oTc/2  =  2k/Nf  and  r{z,kTAt)  represents  a  signal  that  is  band-limited 
to  the  frequency  range  -\/Tc  to  +\/Tc.  Note  that  the  matched-filter  output  r{T,kT^t)  is 
unambiguous  in  delay  over  the  interval  from  0  to  (N/r-l)ziT  compared  to  the  delay 
interval  of  0  to  {Nx-  \  )At  for  the  original  realization. 


Delay  in  Equation  131  is  a  continuous  variable,  and  any  value  may  be  used.  In  a 
digital  simulation  of  a  receiver,  this  value  could  be  determined  by  the  output  of  a 
delay-lock  tracking  loop.  In  the  matched-filter  output  amplitude  plots  below,  delay  is 
varied  over  the  entire  unambiguous  range  to  produce  an  array  of  r{T,krAt)  values. 

In  the  examples  that  follow,  the  chip  rate  Rc  {Rc  =  l/Tc)  is  set  at  1  MHz,  and  the 
random  realizations  of  the  impulse  response  function  are  generated  with  a  delay  sample 
size  of  Tc/2.  However,  the  frequency  selective  effects  depend  only  on  the  ratio  of  the 
frequency  selective  bandwidth  to  the  chip  rate  f^lRc-  For  antenna  examples,  a 
uniformly-weighted  circular  antenna  and  isotropic  scattering  are  assumed.  Antenna 
effects  then  depend  only  on  the  ratio  of  the  antenna  diameter  D  to  the  decorrelation 
distance  jSq  and  the  antenna  pointing  angle. 
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4.2  FREQUENCY  SELECTIVE  EFFECTS. 


In  a  high  data  rate  communications  link,  the  major  effect  of  frequency  selective 
fading  is  intersymbol  interference.  Even  relatively  small  amounts  of  delay  spread  can 
catastrophically  degrade  demodulation  performance  in  such  a  link  using  conventional 
matched-filter  detection  techniques. 

Figure  1 1  shows  examples  of  the  matched-filter  output  amplitude  for  three  levels 
of  frequency  selective  propagation  disturbances,  characterized  by  the  ratio  of  the 
frequency  selective  bandwidth  /g  to  the  chip  rate  Rq.  The  impulse  response  functions 
were  generated  using  the  frozen-in  model  {Cxt  =  1  and  Cyi  =  0)  and  a  small  antenna 
(i.e.,  D  «  Qq).  Each  frame  in  the  figure  provides  a  three-dimensional  picture  of  the 
matched-filter  output  amplitude  for  a  single  transmitted  pulse  as  a  function  of  time 
delay  (abscissa)  and  time  (scale  directed  into  the  figure).  TTie  total  duration  of  each  of 
the  frames  is  10  decorrelation  times. 

In  the  top  frame  the  frequency  selective  bandwidth  is  equal  to  the  chip  rate  and 
only  a  small  amount  of  distortion  is  evident  in  the  waveform  (which  is  slightly  rounded 
due  to  band  limiting  at  the  first  nulls  of  the  signal  spectrum).  The  effect  of  fading  can 
be  seen  in  this  frame  as  the  peak  amplitude  rises  and  falls  with  time.  Some  minor 
distortion  of  the  output  amplitude  is  seen  but  for  the  most  part  the  signal  is  contained 
within  the  period  of  one  chip.  This  channel  is  nearly-flat  fading  which  means  that  all 
frequency  components  within  the  signal  bandwidth  propagate  essentially  the  same  way 
through  the  disturbed  ionosphere.  There  is  very  little  time  delay  spread  beyond  one 
chip  in  the  matched-filter  output. 

The  middle  frame  in  Figure  1 1  shows  the  matched-filter  output  amplitude  for 
the  case  were  fJRc  is  equal  to  0.2.  For  this  smaller  value  of  the  frequency  selective 
bandwidth,  more  of  the  signal  energy  is  arriving  with  delays  of  more  than  a  chip,  and 
there  are  multiple  distinct  peaks  in  the  matched-filter  output  amplitude.  It  is  these 
structures  that  can  cause  delay  tracking  algorithms  to  lose  lock  and  that  cause 
intersymbol  interference  which  can  degrade  demodulation  performance. 

The  bottom  frame  shows  a  highly  disturbed  case  where  /g  is  one  tenth  of  the  chip 
rate.  This  causes  signal  energy  to  be  spread  over  approximately  eight  chip  periods. 
When  a  contiguous  set  of  pulses  is  transmitted,  the  delay  spread  of  the  received  signal 
results  in  the  simultaneous  reception  of  information  from  about  eight  previous  chips 
that  can  produce  severe  intersymbol  interference.  An  effect  due  to  the  frozen-in 
model  that  is  evident  in  Figure  1 1  is  that  the  signal  arriving  at  long  delays  varies  more 
rapidly  in  time  than  the  signal  arriving  at  shorter  delays. 

Examples  of  the  channel  transfer  function  at  three  different  times  (0,  Tg/2,  Tg) 
are  shown  in  Figure  12  for  the  case  were/g//?c-  is  equal  to  0.1.  The  plots  show  the 
power  of  H(coj).  in  decibels,  as  a  function  of  normalized  frequency  across  the 
bandwidth.  With  Ar  equal  to  Tc/2,  the  unambiguous  frequency  range  of  the  channel 
transfer  function  is  from  -Rc  to  /?<■  so  the  abscissa  in  this  plot  is  from  -1  to  1. 
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Figure  II.  Effects  of  frequency  selective  fading  on  matched  filter  output 
a  mplitude. 
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Figure  12.  Amplitude  of  the  channel  transfer  function  at  three  times  for 
the  case  folRc  -  0.1. 
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A  comparison  of  the  rnatche<i-filier  output  amplitude  generated  with  the  frozen- 
in,  general,  and  turbulent  models  is  shown  in  Figure  13  for  the  case  where  fJRc  is 
equal  to  0.1.  The  top  frame  in  this  figure  fo''  the  frozen-in  model  is  jusi  a 
reproduction  of  the  bottom  frame  in  Figure  11.  Again  10  decorrelation  times  of  the 
signal  are  plotted.  The  middle  frame  is  a  general  model  realization  {Cxi  =  0-9  and  Cyi 
=  0),  and  tiie  bottom  frame  is  for  the  turbulent  model  {Cxt  =  Cyi  =  0).  The  difference 
between  the  top  and  bottom  frames  is  that  the  turbulent  model  amplitude  has  the  same 
fading  rate  at  all  delays.  It  can  be  seen  that  the  general  model  realization  falls 
.somewhere  between  these  t.vo  limiting  cases 

4.3  SPATIALLY  SELECTIVE  EFFECTS. 

Spatially  selective  effects  are  important  for  high  data  rate  communications  links 
that  rely  on  large  antennas  to  achieve  suffici'''"t  signal-to-noise  ratios  foi  low  error 
rate  data  demodulation.  Scattering  loss  of  an  antenna  is  a  function  of  the  size  of  the 
antenna  D  relative  to  'he  decorrelation  distance. 

When  j2|,  is  greater  than  D  the  electric  field  is  highly  correlated  across  the  face 
of  the  antenna  and  the  full  gain  of  the  antenna  is  realized.  However,  the  antenna  may 
be  located  at  a  position  where  the  incident  power  is  in  a  deep  fade.  The  solution  to  this 
problem  is  to  have  multiple  antennas  physically  separated  by  a  distaiice  larger  than  the 
maximum  decorrelation  distance.  The  probability  of  having  all  antennas 
simultaneously  experience  deep  fades  in  the  received  power  is  then  substantially 
reduced. 

The  problem  of  spatial  selectivity  occurs  when  is  less  than  D  and  the  electric 
field  is  decorrelated  across  the  face  of  the  antenna.  In  this  case,  the  induced  voltages  in 
the  antenna  add  noncoherently  due  t^  the  random  phase  variations  in  the  electric  field, 
and  a  loss  of  signal  power,  or  equivalently  of  antenna  gain,  is  the  result.  From  another 
perspective,  thi^  loss  occurs  when  the  angular  scattering  process  responsible  for 
amplitude  and  phase  scintillation  and  frequency  selective  effects  also  c  ’.uses  some  of  the 
transmitted  signal  energy  to  be  scattered  out  of  the  antenna  beam. 

Figure  14  shows  examples  of  the  matched-filter  output  amplitude  for  three  levels 
of  spatially  selective  propagation  disturbance,  characterized  by  the  ratio  of  the  antenna 
size  to  the  decon elation  distance.  The  ratio  of  the  frequency  selective  bandwiath  to 
th  '  chip  rate  is  0.1.  and  the  antenna  is  pointing  along  the  line-of-sight.  The  top  frame 
is  for  the  case  where  ilo  is  much  greater  than  D,  and  is  just  a  reproduction  of  the 
bottom  frame  of  Figure  1 1.  The  middle  frame  is  for  a  J2  JD  ratio  of  0.5  w'here  the 
scattering  loss  is  3.1  dB.  The  effect  of  the  antenna  is  to  attenuate  preferentially  the 
signal  energy  arriving  at  large  angles  and  at  large  delays  and  thereby  to  reduce  the 
delay  spreatl  of  the  output  signal.  In  '.he  bottom  frame  where  j2()/D  is  equal  to  0.2,  the 
output  signal  is  almost  flat  with  very  little  delay  spread  distortion  of  the  matched-filter 
output.  Although  this  substantially  reduces  the  effects  of  frequency  selective  fading, 
the  cost  is  an  S.S-dB  reduction  in  the  a  .erage  signal  power. 


52 


4  6  S  '0  ‘2  '4 


DELAY  (CHIPS) 

Iij;ure  13.  Comparison  of  matched  filter  output  amplitude  for  the 
fro/en-in.  j»eneral,  and  turbulent  models. 
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^LITUDE'  amplitude: 
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l  igurc  14.  Kffccts  of  spatially  selective  fading  on  matched  filter  output 
amplitude. 
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Finally,  Figure  15  shows  examples  of  the  matched-filter  output  amplitude  for 
three  values  of  the  pointing  angle  0q.  The  ratio  of  the  frequency  selective  bandwidth 
to  the  chip  rate  is  0.1,  and  the  ratio  of  decorrelation  distance  to  antenna  diameter  is 
0.5.  The  top  frame  for  a  pointing  angle  of  zero  is  just  a  reproduction  of  the  middle 
frame  of  Figure  14.  The  average  scattering  loss  for  this  case  is  3.1  dB.  The  bottom 
two  frames  show  the  matched-filter  output  amplitude  for  pointing  angles  of  one-half 
beamwidth  (0o=  ^o/2)  with  a  scattering  loss  of  4.6  dB  and  one  beamwidth  {@q  =  0q) 
with  a  scattering  loss  of  9.2  dB. 

Although  the  average  scattering  losses  are  about  the  same,  the  bottom  frame  of 
Figure  15  (j^q/D  =  0.5  and  0o=  ^o)  ^nd  the  bottom  frame  of  Figure  14  (JIq/D  =  0.2  and 
00  =  0)  are  qualitatively  quite  different.  For  the  case  with  the  pointing  angle  equal  to  a 
beamwidth,  the  received  power  is  much  more  spread  out  in  delay  compared  to  the  case 
with  zero  pointing  angle  where  the  signal  energy  is  concentrated  near  zero  delay.  This 
is  because  the  antenna  pointed  away  from  the  line-of-sight  has  relatively  higher  gain  at 
large  angles  and  long  delays  and  relatively  lower  gain  at  small  angles  and  short  delays 
than  does  an  antenna  pointed  along  the  line-of-sight.  Thus  for  an  antenna  pointed  away 
from  the  line-of-sight,  increased  scattering  loss  does  not  necessarily  result  in  reduced 
frequency  selective  effects. 
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Figure  15. 


■  c 


DELAY  (CHIPS) 

KfTecis  ot  l)c;nn  pointing  on  matched  filter  output  amplitude. 
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SECTION  5 

INPUTS  AND  OUTPUTS  OF  ACIRF  AND  CIRF 

The  latest  version  of  ACIRF  (version  3.5)  is  based  on  the  general  model  with 
antenna  aperture  effects.  A  new  version  of  CIRF  (version  1.1)  contains  the  older 
frozen-in  and  turbulent  models  without  antenna  effects.  Both  codes  use  a  standard 
output  file  format.  Complete  listings  of  the  two  codes  may  be  found  in  Appendix  D. 

Examples  of  ACIRF  and  CIRF  input  and  output  files  are  given  in  this  section. 
For  these  examples,  the  codes  were  run  on  a  Macintosh  Ilsi  computer  with  a  math 
coprocessor,  the  Motorola  MC68882  floating-point  unit.  However  the  codes  are 
written  to  produce  machine  independent  output.  Thus  the  user  should  be  able  to 
reproduce  the  output  files  on  most  32  bit  computers.  When  compared  to  the  same  case 
run  on  the  Mission  Research  Corporation  Elxsi  6400  computer,  the  Macintosh 
generated  formatted  output  files  from  ACIRF  or  CIRF  are  identical,  except  for  a  few 
numbers  that  disagree  in  the  5d'  or  6'h  decimal  place. 

5.1  ACIRF  INPUT  AND  FORMATTED  OUTPUT  FILES. 

The  key  inputs  to  ACIRF  are  listed  in  Table  1.  These  include  channel 
parameters  that  describe  the  second  order  statistics  of  the  signal  incident  on  the  face  of 
an  antenna,  antenna  parameters,  and  realization  parameters. 

Relative  antenna  positions  in  the  u-v  coordinate  system,  and  vo,  are  antenna 
inputs  along  with  beamwidths  and  pointing  angles.  The  coordinates  Uq  and  vq  are 
related  to  the  antenna  positions  in  the  .t-v  coordinate  system,  Xo  and  yo,  used  in 
Equations  74  and  97  as  follows: 


.V()  =  //y  cos'P- Vy  sin^P  (132a) 

Vy  =  /<y  sin*P  +  Vy  cos ‘P  .  (132b) 

Key  realization  parameter  inputs  are  the  number  of  delay  samples  Nj  and  the 

delay  sample  size  At.  The  delay  sample  size  should  be  no  larger  than  one-half  of  the 

chip  period.  For  most  applications,  setting  A r  equal  to  Tc/2  is  sufficient.  The  number 
of  delay  samples  required  is  determined  by  Equations  122  and  123.  An  estimate  of  the 
required  value  of  the  product  N'^Ar  is  given  by  Equation  126. 

An  example  ACIRF  input  file  is  listed  in  fable  2.  Note  that  comment  lines  in 
the  input  file  start  with  a  semicolon  (;).  This  file  is  for  a  frozen-in  model.  Thus  Cxt 

and  C\7  are  both  slightly  less  than  y2  so  that  (C^^ -i- Cy,)'^"  is  slightly  less  than  unity. 
Example  ACIF^F  input  and  formatted  output  files  for  the  turbulent  model  {Cxi  =  ^\t  = 
0)  are  listed  in  .Appendix  E. 
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Table  1.  Key  ACIRF  inputs. 


Channel  Parameters 

Units 

Frequency  selective  bandwidth 

/o 

Hertz 

Decorrelation  distances 

meters 

Decorrelation  time 

seconds 

Space-time  correlation  coefficients 

Cxi  and  Cyi 

• 

Antenna  Parameters 

Beamwidths 

degrees 

Positions  in  u-v  coordinate  system 

Mq  and  vq 

meters 

Rotation  angle 

H||nSS9SHii 

Pointing  angle  elevation 

00 

degrees 

Pointing  angle  azimuth 

degrees 

Realization  Parameters 

Number  of  delay  samples 

Nr 

• 

Delay  sample  size 

Ax 

seconds 

Number  of  time  samples 

Nr 

• 

Number  of  Kx  samples 

Nx 

• 

Number  of  Ky  samples 

• 

Initial  random  number  seed 

• 

Number  of  sample  per  decorrelation  time 

No 

• 

ACIRF  version  3.5,  dated  8  January  1990,  contains  some  old  notation  from  an 
earlier  version  of  the  code  and  Dana  (1986).  In  the  input  and  formatted  output  files, 
CHI  ('/'in  the  notation  used  in  this  report  and  in  Dana  (1991  ])  is  the  rotation  angle,  and 
psi  (00  in  ^hi-''  report)  and  eps  (0o  in  this  report)  are  the  antenna  beam  pointing 
elevation  and  azimuth  angles,  respectively.  This  inconsistency  in  notation  has  been 
corrected  in  ACIRF  version  3.51,  dated  25  April  1991,  which  was  used  to  generated 
the  example  results  in  this  report.  In  version  3.51,  the  rotation  angle  is  denoted  rot, 
and  ELv  and  azm  are  the  beam  pointing  elevation  and  azimuth  angles,  respectively. 

The  fonnatted  output  file  generated  using  the  example  ACIRF  data  file  is  listed 
in  Table  3.  The  first  page  of  this  file  provides  a  summary  of  the  inputs  and  lists,  for 
each  antenna,  ensemble  values  of  scattering  loss  and  antenna  filtered  frequency 
selective  bandwidth  and  decorrelation  time.  Subsequent  pages  of  the  output  file  list, 
for  each  antenna,  measured  values  of  these  quantities.  The  last  page  lists  ensemble  and 
measured  values  for  the  cross  correlation  of  the  signal  out  of  the  antennas.  The 
algorithms  used  to  measure  these  quantities  are  given  in  Dana  [19861. 
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Table  2.  Example  ACIRF  input  file  for  frozen-in  model 


GENERAL  MODEL  WITH  ANTENNAS  -  FROZEN- IN  MODEL  LIMIT 

******  CASE  NUMBER 

KASE 

1001/ 

******  ALPHANUMERIC  IDENTIFICATION  {80  CHARACTERS  OR  LESS  ENCLOSED  IN  •  ' ) 

GENERAL  MODEL  (FROZEN-IN)  WITH  ANTENNAS  -  ACIRF  3.5  USERS  GUIDE  EXAMPLE’ 
******  CHANNEL  PARAMETERS 

FO(HZ)  TAUO(S)  DLX(M)  DLY (M)  CXT  CYT 

1.0E5  3.0E-3  5.0  5.0  0.706  0.706/ 

***.*»  ANTENNA  PARAMETERS 

NUMANT  FREQC(HZ) 

3  2.99793E9/ 

BEAMWIDTHS,  POSITIONS,  ROTATION  ANGLES,  AND  POINTING  ANGLES 
(ONE  LINE  FOR  EACH  ANTENNA) 

ROT  -  ROTATION  ANGLE 

ELV  -  ANTENNA  BEAM  POINTING  ANGLE  ELEVATION 
AZM  -  ANTENNA  BEAM  POINTING  ANGLE  AZIMUTH 


BWU (DEG) 

BWV(DEG) 

UPOS (M) 

VPOS(M) 

ROT (DEG) 

ELV (DEG) 

AZM (DEG) 

0.5896 

0.5896 

-10.0 

0.0 

00.0 

0.2948 

180.0/ 

0.5896 

0.5896 

0.0 

0.0 

00.0 

0.0 

0.0/ 

0.5896 

0.5896 

10.0 

0.0 

00.0 

0.2948 

0.0/ 

*****  REALIZATION 

PARAMETERS 

NDELAY 

DELTAU(S) 

NTIMES 

NKX 

NKY 

I  SEED 

NO 

8 

5. OE-7 

1024 

32 

32 

9771975 

10/ 

Table  3a.  Example  ACIRF  formatted  output  file  for  the  frozen-in  model 
(summary  of  input  and  ensemble  realization  statistics). 


ACIRF  CHANNEL  SIMULATION  VERSION  3. 

51 

CASE  NUMBER  1001 

TEMPORAL  VARIATION  FROM  GENERAL  MODEL 

REALIZATION  IDENTIFICATION: 

GENERAL  MODEL  (FROZEN- IN)  WITH  ANTENNAS  -  ACIRF  3 

.5  USERS  GUIDE  EXAMPLE 

CHANNEL  PARAMETERS 

FREQUENCY  SELECTIVE  BANDWIDTH  (HZ) 

= 

1 . OOOE+05 

DECORRELATION  TIME  (SEC) 

3.000E-03 

X  DECORRELATION  DISTANCE  (M) 

= 

5.000E+00 

Y  DECORRELATION  DISTANCE  (M) 

= 

5.000E+00 

TIME-X  CORRELATION  COEFFICIENT 

7.060E-01 

TIME-Y  CORRELATION  COEFFICIENT 

= 

7.060E-01 

REALIZATION  PARAMETERS 

NUMBER  OF  DELAY  SAMPLES 

= 

8 

DELAY  SAMPLE  SIZE  (SEC) 

= 

6.000E-07 

NUMBER  OF  TEMPORAL  SAMPLES 

= 

1024 

NUMBER  OF  DOPPLER  FREQUENCY  SAMPLES 

= 

188 

NUMBER  OF  TEMPORAL  SAMPLES  PER  TAUO 

= 

10 

NUMBER  OF  KX  SAMPLES 

= 

32 

NUMBER  OF  KY  SAMPLES 

= 

32 

INITIAL  RANDOM  NUMBER  SEED 

9771975 

ANTENNA  PARAMETERS 

NUMBER  OF  ANTENNAS 

3 

CARRIER  FREQUENCY  (HZ)  =  2.998E+09 

ANTENNA  BEAMWIDTHS,  ROTATION  ANGLES  AND 

POINTING  ANGLES 

N  BWU(DEG)  BWV(DEG)  ROT (DEG) 

ELV(DEG)  AZM(DEG) 

1  0.590  0.590  0.000 

0.295 

180.000 

2  0.590  0.590  0.000 

0.000 

0.000 

3  0.590  0.590  0.000 

0.295 

0.000 

ANTENNA  POSITIONS  IN  U-V  AND  X-Y  COORDINATES 

N  UPOS(M)  VPOS (M)  XPOS(M) 

YPOS (M) 

1  -l.OOOE+01  O.OOOE+00  -l.OOOE+01 

0 

OOOE+00 

2  O.OOOE+00  O.OOOE+00  O.OOOE+00 

0 

OOOE+00 

3  l.OOOE  +  01  O.OOOE  +  00  l.OOOE-t-01 

0 

OOOE+00 

ENSEMBLE  CHANNEL  PARAMETERS  AT  ANTENNA  OUTPUTS 

N  LOSS(DB)  POWER  FA  (HZ) 

TAUA  (SEC) 

1  4.602  0.346611  1.574E+05 

4 

300E-03 

2  3.141  0.485167  2.061E+05 

4 

.  300E-03 

3  4.602  0.346611  1.574E+05 

4 

300E-03 
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Table  3b.  Example  ACIRF  formatted  output  for  the  frozen-in  model 
(summary  of  measured  realization  statistics  for  antenna  1) 


MEASURED  PARAMETERS  FOR  REALIZATION /ANTENNA  1 

MOMENTS  OF  VOLTAGE  AMPLITUDE  VERSUS  DELAY 
NORMALIZED  TO  ENSEMBLE  VALUES 
POW(J)  =  ENSEMBLE  POWER  IN  J-TH  DELAY  BIN 
J  =  T:  STATISTICS  OF  COMPOSITE  SIGNAL 


J 

POW ( J) 

<A> 

<A'2> 

<A"3> 

A 

< 

< 

V 

S4 

<CHI>  <CHI^2> 

0 

1 .280E-01 

0.9820 

0.9624 

0.9396 

0.9042 

0.9759 

1.0275  0.9281 

1 

8.257E-02 

0.8877 

0.7869 

0.6948 

0.6111 

0.9868 

1.4130  1.1673 

2 

5.231E-02 

1.0028 

0.9724 

0.9351 

0.8976 

0.9480 

0.8641  0.7392 

3 

3.266E-02 

1 . 0591 

1.1461 

1.2391 

1.3290 

1.0118 

0.8932  1.1180 

4 

2 . 016E-02 

1.0297 

1.0477 

1.0505 

1.0362 

0.9423 

0.8680  0.8985 

5 

1 . 233E-02 

0.9409 

0.8885 

0.8478 

0.8185 

1.0361 

1.1933  1.0194 

6 

7 . 474E-03 

1.0195 

1.0252 

1.0110 

0.9734 

0. 9232 

0.9111  0.9351 

7 

4 . 500E-03 

1.0068 

1 . 0458 

1.1194 

1.2389 

1.1249 

1.0501  1.1280 

T 

3 . 400E-01 

0.9449 

0.8889 

0.8283 

0.7635 

0. 9657 

1.2082  1.1118 

REALIZATION  SIGNAL  PARAMETERS: 

ENSEMBLE 

MEASURED 

MEAN  POWER  OF 

REALIZATION 

= 

0.346611 

0.320906 

TOTAL  SCATTERING  LOSS 

(DB) 

= 

4  . 

602 

4.936 

FREQUENCY  SELECTIVE  BANDWIDTH 

(HZ)  - 

1 .574E+05 

1 .847E+05 

DECORRELATION 

TIME  (SEC) 

= 

4 .300E 

-03 

3.746E-03 

NUMBER  OF  SAMPLES  PER 

DECORR. 

TIME  = 

10 

8.711 

MEAN  POWER  IN  GRID 


POWER  IN  KX-KY  GIRD 
POWER  LOSS  OF  GRID  (DB) 
POWER  IN  DELAY  GRID 


0.339619 

0.089 

0.339998 


Table  3c.  Example  ACIRF  formatted  output  for  the  frozen-in  model 
(summary  of  measured  realization  statistics  for  antenna  2) 


MEASURED  PARAMETERS  FOR 

REALIZATION/ANTENNA  2 

MOMENTS  OF  VOLTAGE  AMPLITUDE  VERSUS  DELAY 

NORMALIZED  TO  ENSEMBLE  VALUES 

POW(J)  -  ENSEMBLE  POWER  IN  J-TH  DELAY 

BIN 

J  -  T:  STATISTICS  OF  COMPOSITE 

;  SIGNAL 

J  POW(J)  <A> 

A 

> 

> 

to 

V 

<A^3> 

<A^4> 

S4 

<CHI>  <CHI^2> 

0  2.313E-01  1.0121 

1.0175 

1.0295 

1.0463 

1.0105 

0.9317  0.9732 

1  1.210E-01  0.9572 

0.9471 

0.9335 

0.9052 

1.0092 

1.2895  1.3252 

2  6.334E-02  0.9658 

0.9573 

0.9535 

0.9484 

1.0344 

1.2266  1.2665 

3  3.315E-02  1.0330 

1.0579 

1 . 0665 

1.0562 

0.9421 

0.8832  0.9574 

4  1.735E-02  0.9468 

0.8939 

0.8396 

0.7866 

0.9842 

1.1987  1.1069 

5  9.078E-03  0.9825 

0. 9636 

0.9495 

0.9358 

1.0078 

1.0315  0.9476 

6  4.751E-03  0.9286 

0.8760 

0.8306 

0.7899 

1.0290 

1.3193  1.2396 

7  2.486E-03  1.0676 

1 . 1543 

1.2539 

1.3632 

1.0229 

0.8109  0.9955 

T  4.824E-01  0.9790 

0.9627 

0.9540 

0.9483 

1.0229 

1.0790  1.0466 

REALIZATION  SIGNAL  PARAMETERS: 

ENSEMBLE 

MEASURED 

MEAN  POWER  OF  REALIZATION 

0.485167 

0.476912 

TOTAL  SCATTERING  LOSS 

(DB) 

3. 

141 

3.216 

FREQUENCY  SELECTIVE  BANDWIDTH 

(HZ)  = 

2.0eiE+05 

2 .289E+05 

DECORRELATION  TIME  (SEC) 

4.300E 

-03 

4 .260E-03 

NUMBER  OF  SAMPLES  PER 

DECORR. 

TIME  = 

10 

9.906 

MEAN  POWER  IN  GRID 

POWER  IN  KX-KY  GIRD 

0. 

482493 

POWER  LOSS  OF  GRID  (DB)  = 

0.024 

POWER  IN  DELAY  GRID 

0. 

482437 
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Table  3d.  Example  ACIRF  formatted  output  for  the  frozen-in  model 
(summary  of  measured  realization  statistics  for  antenna  3) 


MEASURED  PARAMETERS  FOR 

REALIZATION/ANTENNA  3 

MOMENTS  OF  VOLTAGE  AMPLITUDE  VERSUS  DELAY 

NORMALIZED  TO  ENSEMBLE 

;  VALUES 

POW(J)  =  ENSEMBLE  POWER  IN  J-TH  DELAY 

BIN 

J  -  T:  STATISTICS  OF  COMPOSITE 

;  SIGNAL 

J  POW(J)  <A> 

<A"2> 

<A^3> 

<A"4> 

S4 

<CHI>  <CHI"2> 

0  1.280E-01  1.0975 

1.1489 

1 . 1529 

1.1154 

0.8307 

0.5969  0.8006 

1  8.257E-02  1.0582 

1 . 1536 

1.2672 

1.3684 

1.0279 

0.8453  0.9614 

2  5.231E-02  0.9523 

0.9132 

0.8904 

0.8766 

1.0498 

1.1477  0.9950 

3  3.266E-02  1.0784 

1 .1398 

1.1978 

1.2556 

0.9659 

0.6671  0.7841 

4  2.016E-02  0.9340 

0.8511 

0.7763 

0.7216 

0.9962 

1.1575  0.9373 

5  1.233E-02  0.9827 

0.9417 

0.8788 

0.8048 

0.9028 

1.0295  0.9829 

6  7.474E-03  1.0027 

1.0233 

1.0547 

1 . 0836 

1 . 0343 

1.0234  1.0476 

7  4.500E-03  0.9420 

0.8578 

0.7616 

0.6598 

0.8907 

1.1216  0.9100 

T  3.400E-01  1.0769 

1 .1606 

1.2236 

1.2517 

0.9266 

0.7919  1.0408 

REALIZATION  SIGNAL  PARAMETERS: 

ENSEMBLE 

MEASURED 

MEAN  POWER  OF  REALIZATION 

= 

0.346611 

0.367584 

TOTAL  SCATTERING  LOSS 

(DB) 

- 

4  . 

602 

4.346 

FREQUENCY  SELECTIVE  BANDWIDTH 

(HZ)  = 

1 .574E+05 

1 . 965E+05 

DECOEIRELATION  TIME  (SEC) 

* 

4 .300E 

-03 

4 .500E-03 

NUMBER  OF  SAMPLES  PER 

DECORR . 

TIME  = 

10 

10.466 

MEAN  POWER  IN  GRID 

POWER  IN  KX-KY  GIRD 

=  0. 

339502 

POWER  LOSS  OF  GRID  (DB)  = 

0.090 

POWER  IN  DELAY  GRID 

0. 

339998 

Table  3e.  Example  ACIRF  formatted  output  for  the  frozen-in  model 
(ensemble  and  measured  antenna  output  cross  correlation 
coefficients). 


ENSEMBLE 

;  ANTENNA 

OUTPUT  CROSS  CORRELATION 

AMPLITUDE  OE  CROSS  CORRELATION 

N 

AMP (N-1) 

AMP (N-2) 

AMP (N-3) 

1 

1 . 000000 

0.131351 

0.000298 

2 

0,131351 

1 . 000000 

0.131351 

3 

0.000298 

0. 131351 

1 . 000000 

PHASE 

(RADIANS) 

OF  CROSS 

CORRELATION 

N 

PHS  (N-1) 

PHS  (N-2) 

PHS (N-3) 

1 

0.000000 

-0.832184 

0.000000 

2 

0 . 832184 

0.000000 

0.832184 

3 

0.000000 

0.832184 

0. 000000 

MEASURED 

1  ANTENNA 

OUTPUT  CROSS  CORRELATION 

AMPLITUDE  OF  CROSS  CORRELATION 

N 

AMP (N-1) 

AMP (N-2) 

AMP (N-3) 

1 

1 . 000000 

0.175555 

0.065979 

2 

0.  175555 

1 . 000000 

0.236165 

3 

0.065979 

0.236165 

1 . 000000 

PHASE 

(RADIANS) 

OF  CROSS 

CORRELATION 

N 

PHS  (N-1) 

PHS  (N-2) 

PHS (N-3) 

1 

0.000000 

-2.194468 

0.274303 

2 

■2.194468 

0.000000 

2 . 185150 

3 

0.274303 

2.  185150 

0.000000 

FINAL  RANDOM  NUMBER  SEED  = 

-101148759 
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For  each  delay  bin,  moments  of  the  amplitude,  the  scintillation  index  54,  and 
moments  of  the  log  amplitude  of  the  impulse  response  function  are  measured  and 
output  in  the  formatted  file.  The  ensemble  values  for  the  amplitude  moments  are  given 
below.  The  expected  variation  of  the  measured  values  of  these  parameters  about  their 
ensemble  values  is  given  in  Appendix  C. 

A  realization  of  the  impulse  response  function  at  a  given  delay  is  a  complex, 
ze.o-mean,  normally  distributed  random  variable.  Thus  the  amplitude  of  the 
realization  is  Rayleigh  distributed.  Close  agreement  of  the  measured  amplitude 
moments  and  S4  with  their  ensemble  values  indicates  that  the  flares  (i.e.,  times  when 
the  instantaneous  power  is  about  equal  to  or  exceeds  the  mean  power)  in  the  realization 
closely  follow  a  Rayleigh  distribution.  Close  agreement  of  the  of  the  log  amplitude 
moments  indicates  that  the  fades  closely  follow  a  Rayleigh  distribution. 

Because  different  realizations  will  have  significant  differences  in  the  measured 
values  of  the  moments  of  the  amplitude,  log  amplitude,  and  scintillation  index,  a 
comparison  of  these  moments  can  be  used  to  quickly  determine  whether  two 
realizations  are  of  the  impulse  response  function  are  identical.  Even  minor  variations 
in  a  realization  may  result  in  large  variations  in  the  moments.  This  is  particularly  true 
for  short  (100  decorrelation  times)  realizations. 

Ensemble  values  of  the  amplitude  moments  depend  on  the  ensemble  power  in  the 
delay  bin  for  the  antenna; 

(J+ 1 

jSA,,n(T)dT  .  (/' =  0,  1,  •  ,  Nr- 1 )  (133) 

jM 

The  delay  power  spectral  density  54,m(T)  at  the  output  of  the  antenna  pointed  in 
the  direction  K(^jn  with  beam  profile  GmiKi)  is: 


SA.miT) 


00 

G /n{K ±~K Q  ffi)  S 

—00 


dK± 

(271)" 


(134) 


A  closed-form  expression  for  SA^mi  ^■)  is  given  by  Frasier  1 1990]. 

Ensemble  values  of  the  moments  of  the  amplitude  (a^),  log  amplitude  and 
the  scintillation  index  .S4  are: 
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i^j)  ~  2^ 
\aj}  =  P  mj 

(^y)  4  V 

{a))  =  2Plm 


S4 


r  /  „4' 


-  (al) 


(aj) 


1 


(X)  =  <ln(ay))  =  2  (^7>)  “  2 


(135a) 

(135b) 

(135c) 

(135d) 

(135e) 

(135f) 


(f  >  =  (InHaj))  =  4  In^  (Pj,m)  -  J  In  (Py>)  +  4 


6 


+ 


(135g) 


where  yis  Euler’^  constant  (y=  0.57721 57---). 

To  assure  the  user  that  the  angle-delay  grids  contain  most  the  signal  energy,  the 
mean  power  in  these  grids  is  an  output  of  ACIRF.  The  mean  power  in  the  Kx-Ky 
grid,  for  the  antenna,  is 


A',  - 1  Ny/2  ~  1 

PK.m  =  X  Z  Em{kx,ky)  .  (136) 

k^=-NJ2  ky=-Nyl2 

where  Emikx,ky)  is  ^he  mean  powe^  in  a  Kx-Ky  grid  cell.  This  quantity  is  discussed 
further  in  Appendix  B.  The  mean  -^ower  in  the  delay  gird,  for  the  antenna,  is 

/Vr-1 

Pr.m  =  X  Pj.m  ■  (137) 

y=0 

These  quantities  may  be  found  in  the  ACIRF  formatted  output  under  the  title  “mean 
POWER  IN  grid”.  The  loss  associated  with  PK,m  is  the  ratio  of  PK,m  to  the  scattering  loss 
of  the  m^k  antenna.  This  los'^  m  decibels,  is  also  in  the  formatted  ACIRF  c  tput  file. 

5.2  CIRF  INPUT  AND  FORMATTED  OUTPUT  FILES. 

The  key  inputs  to  CIRF  are  listed  in  Table  4.  These  include  channel  parameters 
that  describe  the  second  order  statistics  of  the  sign?'  and  realization  parameters.  The 
models  in  CIRF  do  not  include  the  effects  of  antennas.  Thus  the  GPSD  used  in  these 
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models  is  integrated  over  Kx  and  /Cy,  so  decorrelation  distances  are  not  required.  The 
frequency  selective  model  in  CIRF  is  generated  assuming  isotropic  scattering. 

There  are  four  different  channel  models  included  in  CIRF,  all  without  antenna 
effects:  an  additive  white  Gaussian  noise  channel  (ifade  =  o);  a  frequency  selective 
frozen-in  model  (ifade  =  2):  a  frequency  selective  turbulent  model  (ifade  =  3);  and  a 
flat  fading  model  (ifade  =  4).  Models  2  and  4  were  also  implemented  in  Wittwer's 
original  CIRF  program  [Wittwer,  19801.  The  general  model  with  antenna  effects 
contained  in  ACIRF  corresponds  to  the  ifade  =  1  case  and  is  not  allowed  in  CIRF. 


Key  realization  parameter  inputs  are  the  number  of  delay  samples  A^^and  the 
delay  sample  size  Az.  The  delay  sample  size  should  be  no  larger  than  one-half  of  the 
chip  period.  For  most  applications,  setting  Ar  equal  to  Tc/2  is  sufficient.  Equation 
126,  with  /a  replaced  by/o,  also  gives  the  required  extent,  NxAr,  of  the  delay  grid  for 
the  frequency  selective  models  in  CIRF  [Dana,  1986;  Wittwer,  1980]: 


Nr  At  - 


3.7 

2tc/o  • 


(138) 


If  At  is  fixed,  this  equation  gives  the  required  number  of  delay  samples. 

An  example  CIRF  input  file  for  the  frozen-in  model  is  listed  in  Table  5. 
Comment  lines  in  the  input  file  start  with  a  semicolon  (;).  Example  input  and 
fonnatted  files  for  the  other  three  channel  models  in  CIRF  are  listed  in  Appendix  E. 

The  formatted  output  file  generated  using  the  example  CIRF  data  file  is  listed  in 
Table  6.  The  first  page  of  this  file  provides  a  summary  of  the  inputs.  The  second  page 
of  the  output  file  lists  moments  of  the  amplitude,  the  scintillation  index  S4,  and 
moments  of  the  log  amplitude  for  each  delay  bin.  The  mean  power  in  the  Doppler- 
delay  grids  is  also  printed. 


Table  4.  Key  CIRF  inputs. 


Channel  Parameters 

Units 

Channel  model 

IFADE 

Frequency  selective  bandwidth 

/() 

Hertz 

Decorrelation  time 

seconds 

Realization  Parameters 

Number  of  delay  samples 

Nr 

• 

Delay  sample  size 

At 

seconds 

Number  of  time  samples 

Nr 

• 

Initial  random  number  seed 

• 

Number  of  sample  per  decorrelation  time 

/V(, 

• 
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Table  5.  Example  CIRF  input  file  for  fro/en-in  model. 


;  FREQUENCY  SELECTIVE 

FADING  - 

FROZEN- IN 

MODEL  FOR  TEMPORAL 

FLUCTUATIONS 

case  NUMBER 

;  KASE 

2002/ 

•*.».*»  ALPHANUMERIC 

IDENTIFICATION  (80 

CHARACTERS  OR  LESS 

ENCLOSED  IN  '  ') 

'FROZEN-IN  ^^ODEL  -  ACIRF  3.5  USERS  GUIDE 

EXAMPLE' 

CHANNEL  PARAMETERS 

;  IFADE  FO(HZ) 

TAUO (S) 

2  1.0E5 

3.0E-3/ 

;***“*  REALIZATION 

PARAMETERS 

;  NDELAY  DELTAU(S) 

NTIMES 

I  SEED 

NO 

il  5.0E-7 

1024 

9771975 

10/ 

Table  6a.  Example  CIRF  output  file  for  frozen-in  model  (page  1, 
summary  of  input  and  ensemble  values). 

CIRF  CHANNEL  SIMULATION  VERSION  1.11 
CASE  NUMBER  2002 

TEMPORAL  VARIATION  FROM  FROZEN- IN  MODEL 
REALIZATION  IDENTIFICATION: 

FROZEN-IN  MODEL  -  ACIRF  3.5  USERS  GUIDE  EXAMPLE 
CHANNEL  PARAMETERS 

FREQUENCY  SELECTIVE  BANDWIDTH  (HZ)  =  l.OOOE+05 
DECORRELATION  TIME  (SEC)  =  3.000E-03 

REALIZATION  PARAMETERS 

NUMBER  OF  DELAY  SAMPLES  =  11 

DELAY  SAMPLE  SIZE  (SEC)  =  5.000E-07 

NUMBER  OF  TEMPORAL  SAMPLES  =  1024 

NUMBER  OF  TEMPORAL  SAMPLES  PER  TAUO  =  10 

INITIAL  RANDOM  NUMBER  SEED  =  9771975 


Table  6b.  Example  CIRF  output  file  for  frozen-in  model  (page  2, 
summary  of  measured  realization  statistics). 


MEASURED  PARAMETERS  OF  REALIZATION 

MOMENTS  OF  VOLTAGE  AMPLITUDE  VERSUS  DELAY 
NORMALIZED  TO  ENSEMBLE  VALUES 
POW(J)  =  ENSEMBLE  POWER  IN  J-TH  DELAY  BIN 
J  =  T:  STATISTICS  OF  COMPOSITE  SIGNAL 


J 

POW(J) 

<A> 

A 

(N 

< 

< 

V 

<A^3> 

A 

< 

< 

V 

S4 

<CHI>  <CHI^2> 

0 

4 . 741E-02 

0.8220 

0.6857 

0.5702 

0.4673 

0.9937 

1.7158 

1.3564 

1 

1 .546E-01 

0. 9814 

0.9265 

0.8549 

0.7728 

0.8946 

0.9582 

0.8257 

2 

2 .008E-01 

1 . 0682 

1 .1600 

1.2627 

1.3608 

1.0113 

0.8206 

1 . 0239 

3 

1 . 631E-01 

1 . 0600 

1 . 0881 

1 . 0804 

1.0394 

0.8694 

0.7607 

0.9237 

4 

1 . 189E-01 

0. 9882 

0.9792 

0.9619 

0.9288 

0.9682 

1 . 0704 

1.0935 

5 

8 . 600E-02 

1 . 0018 

0. 9933 

0.9716 

0.9323 

0.9432 

0. 9474 

0.8705 

6 

6.221E-02 

1 . 0038 

1.0011 

0.9953 

0.9883 

0.9861 

0. 9735 

0.9756 

1 

4 . 500E-02 

1.0302 

1.0218 

0.9907 

0.9456 

0.9008 

0.8186 

0.8659 

8 

3.255E-02 

1.0216 

1.0410 

1 . 0480 

1 . 0442 

0.9628 

0. 9720 

1.1175 

9 

2.355E-02 

1 . 0649 

1.1107 

1.1533 

1.1945 

0. 9678 

0.7005 

0.7707 

10 

1 .703E-02 

1 . 0255 

1.0565 

1 . 0874 

1.1165 

1.0002 

0.9644 

1.1319 

T 

9.510E-01 

0. 9408 

0.9127 

0.8906 

0.8688 

1.0420 

1.3307 

1.3519 

REALIZATION  SIGNAL  PARAMETERS; 

ENSEMBLE 

MEASURED 

MEAN  POWER  OF 

REALIZATION 

1.000000 

0.974180 

LOSS  (DB)  DUE 

TO  MEAN 

POWER 

= 

0. 

000 

0.114 

FREQUENCY  SELECTIVE  BANDWIDTH 

(HZ)  = 

1 .OOOE+05 

1 .368E+05 

DECORRELATION 

TIME  (SEC) 

= 

3.000E 

-03 

2.771E-03 

NUMBER  OF  SAMPLES  PER 

DECORR. 

TIME  = 

10 

9.237 

MEAN  POWER  IN  GRID 

POWER  IN  DOPPLER  GIRD  =  0.949248 

POWER  LOSS  OF  GRID  (DB)  =  0.226 

POWER  IN  DELAY  GRID  =  0.951048 

FINAL  RANDOM  NUMBER  SEED  =  -1505951035 
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5.3  UNFORMATTED  ACIRF  AND  CIRF  OUTPUT  FILES. 


The  structure  of  the  unformatted  ACIRF  and  CIRF  output  files  that  contain  the 
impulse  response  function  realizations  is  described  in  Table  7.  The  first  record  of  an 
unformatted  file  is  the  80  character  identification  that  is  an  ACIRF  input.  The  Fortran 
code  that  writes  this  record  is  shown  in  Table  8. 

The  problem  definition  data  record  A  contains  a  summary  of  the  input  data  and 
record  B  contains  a  detailed  definition  of  the  realizations.  The  generating  Fortran 
code  is  listed  in  Table  9.  A  description  of  the  important  words  in  record  A  is  given  in 
Table  10.  Because  a  common  output  file  format  is  used  by  several  channel  simulation 
programs  developed  at  Mission  Research  Corporation,  ACIRF  and  CIRF  do  not  use  all 
the  words  in  the  record.  Only  the  words  that  contain  information  relevant  to  the  use 
of  ACIRF  or  CIRF  realizations  are  listed  in  Table  10.  The  second  column  of  Table  10 
indicates  which  variables  are  used  by  CIRF.  All  other  words  in  record  A  are  zeros. 

One  of  the  key  variables  listed  in  Table  10  has  not  yet  been  defined.  This  is 
TAUMiN  that  is  the  minimum  starting  delay.  The  GPSD  used  in  CIRF  for  the  frozen-in 
model  is  given  by  Equations  11  and  12a  with  a  non-infinite  value  of  the  parameter  a 
(a  =  4  is  used)  and  isotropic  .scattering  (£x  =  Once  the  decorrelation 

distances  are  equated,  the  GPSD  is  integrated  over  Kx  and  Ky.  The  resulting  delay- 
Doppler  GPSD  is  then  independent  of  For  a  finite  value  of  a,  the  starting  delay  is 
negative  and  is  given  by  the  formula 

as  described  in  Wittwcr  [1980]  or  Dana  11986].  For  the  general  model  in  ACIRF  and 
for  the  turbulent  model  in  CIRF,  the  value  of  a  is  infinite,  and  the  minimum  delay  is 
zero. 


Table  7.  Structure  of  unformatted  ACIRF  and  CIRF  output  files. 


Record 

Description 

1 

Character  identification  record 

Floating  point  record  A  (problem  definition  data) 

3 

Floating  point  record  B  (detailed  problem  definition  data) 

4 

Record  A 

5 

Floating  point  realization  data  record  1 

6 

Record  A  (if  necessary) 

7 

Floating  point  realization  data  record  2  (if  necessary) 

• 

• 

• 

• 

• 

• 

2n+2 

Record  A  (if  necessary) 

2n+?> 

Floating  Point  realization  data  record  n  (if  necessary) 
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Table  8.  Fortran  code  that  generates  character  identiTication  record. 


PARAMETER  (NDENT=80) 

CHARACTER  I DENT* 80 

WRITE (lUNIT)  NDENT, IDENT (1 ;NDENT) 


Table  9.  Fortran  code  that  generates  floating  point  header  records 
A  and  B. 


PARAMETER  {NDATA1=30, NDATA2=32) 

COMMON /HEADER/RDATAl (NDATAl) , RDATA2 (NDATA2) 
WRITE (lUNIT)  NDATAl, (RDATAl ( I I ) , I 1=1 , NDATAl ) 
WRITE(IUNIT)  NDATA2, (RDATA2 ( I I ) , 11=1 , NDATA2) 


Table  10.  Description  of  header  record  A. 


Word 

Fortran 

CIRF 

Parameter 

No. 

Variable 

Variable 

1 

2.0 

Yes 

ACIRF  or  CIRF  realization 

2 

KASE 

Yes 

Case  number 

3 

FREQC 

No 

Carrier  frequency  (Hz) 

4 

TAOO 

Yes 

Decorrelation  time  Tq  (sec) 

5 

FO 

Yes 

Frequency  selective  bandwidth /q  (Hz) 

6 

DLX 

No 

.r-decorrelation  distance  Qx  (m) 

7 

DLY 

No 

y-decorrelation  distance  Qy  (m) 

9 

1 .0 

Yes 

Scintillation  index  S4 

13 

TDUR 

Yes 

Time  duration  of  realization  (NjAt) 

14 

NTIMES 

Yes 

Number  of  time  samples  Nr 

15 

DELTAT 

Yes 

Time  sample  size  At 

16 

NO 

Yes 

Samples  per  decorrelation  time  Nq 

20 

NDELAY 

Yes 

Number  of  delay  samples  Nr 

21 

TAUMIN 

Yes 

Minimum  delay 

22 

DELTAU 

Yes 

Delay  sample  size  At 

23 

ISEED 

Yes 

Random  number  seed 

24 

JSEED 

Yes 

Random  number  seed 

25 

MAXBUF 

Yes 

Maximum  buffer  size 

28 

VERSON 

Yes 

Version  No.  of  ACIRF/CIRF  code 

The  ACIRF  and  CIRF  versions  of  the  subroutines  WRITER  and  READER  that 
write  and  read  the  unformatted  files,  respectively,  are  listed  in  Appendix  D.  The 
subroutine  READER  may  be  adapted  to  read  the  impulse  response  function  into  a  link 
simulation.  As  currently  written,  READER  outputs,  through  the  call  statement,  an 
array  containing  the  impulse  response  function  h(JAr,kiAt)  (/’  =  1,  •••  ,  A/j)  at  a  fixed 
time  sample  kjAt  {kr  =  1,  ,  Nj).  Consecutive  calls  to  READER  produce  consecutive 

time  samples  of  the  impulse  response  function. 

The  subroutine  WRITER  is  called  once  each  time  step  ki  At  {ki  =  1,  ,  /Vy  )  and 

passed  an  a-rray  of  the  impulse  response  function  h{JAT,krAt)  (j  =  1,  ,  Nz)-  The 

subroutine  WRITER  buffers  these  arrays  until  the  end  of  the  realization  is  reached  or 
until  the  number  of  impulse  response  function  arrays  equals  the  capacity  of  the  buffer. 

The  maximum  number  of  arrays  in  buffer  is  equal  to  the  largest  integer  that  is 
less  than  or  equal  to  (maxbuf/2)  /ndelay.  The  parameter  maxbuf  is  the  maximum  number 
of  real  words  in  an  unformatted  file  record.  The  current  value  of  maxbuf  is  4096. 
Once  the  buffer  is  filled  to  capacity  or  the  end  of  the  realization  is  reached,  WRITER 
writes  the  buffer  into  the  file  as  a  single  record. 

The  subroutine  READER  reverses  this  process.  It  first  reads  a  record  into  a 
buffer,  and  then  outputs  a  single  impulse  response  function  array  from  the  buffer  each 
time  it  is  called.  After  (maxbuf/2) /ndelay  calls  to  READER,  another  record  is  read 
from  the  file  into  the  buffer,  and  so  on. 
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APPENDIX  A 

ACCURACY  OF  ANGULAR  INTEGRATION  TECHNIQUES 


The  purpose  of  this  appendix  is  to  compute  the  accuracy  of  an  approximation 
used  in  ACIRF  to  the  angular  Kx  and  Ky  integrals  in  Equation  81.  There  are  several 
ways  that  the  angular  integrals  can  be  simplified,  as  reported  in  Dana  [1989,  1991], 
(Note  that  the  error  curves  for  the  algorithm  denoted  G(K)S(K)AK  in  these  two 
references  are  in  error.)  Only  the  accuracy  of  the  approximation  to  Equation  81 
actually  used  in  ACIRF  will  be  considered  in  this  appendix. 

A.l  INTRODUCTION. 

The  mean  signal  power  in  a  Kx-Ky  grid  cell  at  the  output  of  an  antenna  is 

{kx  +  MDAK^ 

^  {  dKx  {  dKy 

EAikx.ky)  =  J  2k  J  271  (140) 

(kx-\l2)Akx  (ky-MDAKy 

where  5’a'(A'i)  is  the  angular  part  of  the  GPSD  and  G(A'i-A'o)  is  the  antenna  beam 
profile  for  a  beam  pointing  in  the  direction  Xo.  Equation  140  is  quite  general,  but  it 
requires  that  the  power  in  each  angular  bin  be  calculated  and  stored  for  each  antenna 
or  beam  pointing  direction.  This  latter  requirement  results  in  unacceptably  large 
arrays.  However,  Equation  140  can  be  approximated  by  assuming  the  antenna  beam 
pattern  varies  sk  vvly  over  the  Kx-Ky  grid  cells  so  the  antenna  beam  profile  G{Kx_- 
Kq)  may  be  pulled  out  of  the  integral. 

To  limit  the  scope  of  this  calculation,  i.sotropic  scattering  and  a  uniformly- 
weighted  circular  antenna  will  be  assumed.  Without  further  loss  of  generality,  it  can 
then  be  assumed  that  the  antenna  is  pointed  away  from  the  line-of-sight  in  the  .x- 
direction,  or  equivalently,  that  both  the  pointing  azimuth  and  rotation  angles  are  zero. 
For  this  case,  the  angular  part  of  the  GPSD  is 

,  \  {Kl  +  Kl)£l  " 

Sk{Ki)  =  Tt^oe.xp^-  ^  ^  J  (141) 


where  J2q  is  the  isotropic  decorrelation  distance  (J2x  =  Hy  =  Hq).  The  isotropic  antenna 
beam  pattern  is 


G’(/vT-X„)  =  exp'j^ 


\){Kx-K,,)^!ll  {Q  -1)K;.4 


(142) 


where  K^  is  the  magnitude  of  the  vector  The  quantity  ^  -  1  is  proportional  to  the 
.square  of  the  ratio  of  the  antenna  diameter  D  to  the  decoirelation  distance: 
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(143) 


where  Oq  =  1.02899  for  uniformly  weighted  circular  antennas. 

The  antenna-filtered  decorrelation  distance,  which  is  the  same  in  both  the  x-  and 
y-directions,  is 

(144) 


This  expression  is  then  used  in  Equations  108  to  compute  the  maximum  required  extent 
of  the  angular  grids  (Eqn.  109).  When  the  antenna  is  pointed  in  the  Kx  direction,  the 
Kx  angular  grid  size  is  given  by  the  expression 


(Q  -  I  )/fo  KK,max 

Q  ^  nM  _ 


(145a) 


and  the  Ky  angular  grid  size  is 


(145b) 


The  parameter  KK,max  (Eqn.  103b)  is  determined  by  the  condition  that  99.9  percent  of 
the  signal  energy  be  in  the  Kx-Ky  grid,  and  Nx  and  Ny  are  the  number  of  angular  grid 
cells  in  the  Kx  and  Ky  directions,  respectively. 

The  exact  expression  for  the  received  power  will  be  compared  to  the  total  power 
in  the  grid, 


NJ2  -  I  Nyl2  -  1 

Pk  =  Y,  Y  EA{kx,ky)  ,  (146) 

=  -NxJ2  ky  =  -Nyll 


to  compute  an  error  in  the  total  power 

„  _  Pk-0.999Pa 

Error  -  0.999^^ 


(147) 


for  each  of  the  algorithms  used  to  evaluate  Equation  140.  For  this  isotropic  scattering 
and  antenna  case,  the  power  at  the  output  of  the  antenna  Pa  is  given  by  Equation  52. 
The  factor  0.999  occurs  in  this  equation  because  the  grid  is  sized  to  encompass  this 
fraction  of  the  total  power. 
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A.2  ALGORITHMS. 

The  first  approximation  to  the  exact  result  is  just  Equation  140.  This  “exact” 
expression  will  result  in  some  error  in  the  total  power  because  of  inaccuracy  in 
computing  the  error  functions  in  the  expression  below  and  because  of  round-off  errors 
in  the  summation  of  the  contributions  from  each  grid  cell. 

With  the  assumptions  of  isotropic  scattering  and  an  isotropic  Gaussian  beam 
pattern,  the  integrals  indicated  in  Equation  140  can  be  obtained  in  closed  form  with  the 
result 


Ei{kx,ky)  =  ^  erfc 


{kx-\/2)AKxJlo4Q  (Q  -DKoQo 


-  erfc 


2  24Q 

{k^^\l2)AKxh'(Q  iQ 


(148) 


2yfQ 


X  lerfc 


{ky-\l2)AKySloy[Q 

2 


erfc 


{kyy\n)AKyQo4Q 

2 


where 


KqHq  =  2Ka 


00  ^ 
0  ^  D 


(149) 


0Q  is  the  pointing  direction  elevation  angle,  and  Oq  is  the  beamwidth  of  the  antenna. 
The  complementary  error  functions,  erfc  (•),  in  Equation  149  are  computed  in  this 
analysis  and  in  ACIRF  using  the  most  accurate  rational  approximation  for  the  error 
function  in  Abraniowitz  and  Stegun  [1972], 


The  approximation  used  to  the  simplify  the  angular  integrals  in  Equation  81  in 
ACIRF  is  obtained  by  assuming  the  antenna  beam  pattern  is  constant  over  an  angular 
grid  cell  and  can  therefore  be  pulled  out  of  the  integral.  The  result  is  the  product  of 
the  antenna  beam  pattern  times  a  term  that  is  equal  to  the  incident  power  in  a  grid  cell: 

E2{kx,ky^  =  G{kxAK^-KQ,kyAKy)  E,{kx,ky)  (150) 


where  the  incident  power  in  a  grid  cell  is 


Ei{kx,ky) 


+  MDAK^ 
{  d-Kx 

(k^~M2)AK^ 


(ky  +  MDAKy 


C  dKy 

J  271 

{ky  -  \/2)AKy 


SKiKx,Ky)  . 


(151) 


The  indicated  integrals  can  again  be  expressed  in  terms  of  error  functions: 
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Ei{kx,ky)  =  2  {erfc 
1 


(kx-\/2)AKxJlo 


-  erfc 


(kx  +  m)AKxJlo 


erfc 


2  " 


-  erfc 


(ky  +  l/2)AKyIlQ 
2 


(152) 


The  advantage  of  this  approximation  is  that  the  error  function  terms  depend  only  on 
the  environment  so  they  can  be  done  once  and  used  for  all  antennas  thereby  reducing 
the  required  processing  time  and  array  sizes. 

A.3  RESULTS. 

The  error  of  the  “exact”  expression  and  the  ACIRF  approximation  is  calculated 
for  a  range  of  the  ratio  of  the  decorrelation  distance  to  the  antenna  diameter.  The 
scattering  loss  of  the  antenna  is  shown  in  Figure  7  for  elevation  pointing  angles  of  0, 
6q/2,  and  9q.  Figures  16,  17  and  18  show  the  relative  error  of  the  “exact”  results  and 
the  ACIRF  approximation  for  the  same  set  of  pointing  angles.  For  these  calculations  a 
32  by  32  angular  grid  is  used  (i.e.,  Nx  and  Ny  are  both  set  equal  to  32).  The  ACIRF 
algorithm  (dashed  lines  in  the  figures)  has  errors  that  approach  those  of  the  “exact” 
expression  (bumpy  solid  lines  in  the  figures)  for  large  values  of  1^^  ihls  case  the 

antenna  beamwidth  is  much  larger  than  the  angular  spread  of  the  scattering,  and  the 
beam  profile  is  constant  and  equal  to  unity  over  the  range  of  K  values  that  contribute 
to  the  angular  integral  in  Equation  140. 

When  the  pointing  angle  is  zero,  the  “exact”  result  in  Figure  16  has  a  relatively 
constant  error  of  about  4.7x10“^.  This  error  is  due  to  inaccuracy  in  computing  the 
complementary  error  function  and  round-off  errors  in  the  summation  of  the 
contributions  from  each  grid  cell.  The  ACIRF  algorithm  for  this  case  has  a  peak  error 
of  about  1.1x10“^  that  occurs  when  the  angular  spread  of  the  incident  power  is  about 
equal  to  the  antenna  beamwidth  (i.e.,  JIq  is  approximately  equal  to  D).  Although  this 
error  is  almost  25  times  larger  than  the  “exact”  result  error,  it  is  small  compared  to 
one,  and  results  in  0.1  percent  error  in  the  total  power  at  the  output  of  the  antenna. 

As  the  pointing  angle  increases,  the  maximum  error  of  the  “exact”  result  in 
Figures  17  and  18  remains  small,  less  than  5x10"^,  because  the  angular  grid  is 
expanded  in  the  direction  the  antenna  is  pointed.  For  non-zero  pointing  angles,  the 
error  changes  sign  over  the  plotted  range  of  the  ratio  jCq/C)  so,  for  some  values  of 
Hq/D,  the  error  is  zero.  The  maximum  error  of  the  ACIRF  algorithm  can  be  several 
orders  of  magnitude  larger  than  that  of  the  “exact”  expression,  but  again  it  is  small 
compared  to  one,  resulting  in  a  maximum  error  of  only  0.2  percent  in  the  total  power 
for  these  cases. 

The  ACIRF  algorithm  is  used  in  channel  modeling  because  it  results  in  small 
errors  in  the  total  antenna  output  power  and  it  requires  significantly  less  computation 
tfian  required  by  the  “exact”  expression  when  multiple  antennas  are  modeled. 
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Figure  17.  Relative  error  for  pointing  angle  of  OqU. 


Figure  18.  Relafive  error  for  pointing  angle  of 
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APPENDIX  B 

ANGLE-DOPPLER  GRID  CELL  POWER 

This  appendix  describes  the  algorithm  used  to  compute  the  angle-Doppler  grid 
cell  power,  EKD(^x^ky,kij),  from  the  GPSD.  This  quantity  is  computed  in  the  channel 
simulation  on  a  grid  that  has  a  minimum  of  32x32  angular  cells  and  150  Doppler  cells. 
It  is  therefore  necessary  to  have  an  efficient  algorithm  to  compute  the  grid  cell  power 
to  minimized  the  computation  time  of  the  channel  simulation. 

B.l  CALCULATION  OF  GRID  CELL  POWER. 

The  first  section  of  this  appendix  is  primarily  a  review  of  m.aterial  presented  in 
Section  3  of  this  report.  Implementation  details  of  the  algorithms  used  to  compute  the 
angle-Doppler  grid  cell  power  are  presented  in  the  next  section  of  this  appendix. 

B.l.l  Separation  of  Angular  and  Doppler  Frequency  Variables. 

Recall  from  Section  3  that  the  most  general  form  for  is  given  by 

the  expression; 


(k^  +  \/2)AK, 


(ky  +  \/2)AKy  (kj)  +  \l2)A(0i) 


EKlAl<x.k\-,ki))  = 


fdj<x 

(dKy 

2Tr 

j  w* 

2k 

J 

f  r.  {1/  \ 


{kx-\/2)AKx  {k,-\/2)AKy  (ko-]/2)A(0o 


(153) 


The  integrand  of  this  equation  can  be  written  in  the  fomi 


Skd{Ei,(0u) 


Soicoo)  Skc 
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Ky- 


C  \iT()COd 


where 


SuioJo)  =  VtiToexpU 


lo  I 
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(154) 
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and 


Skc(1< 
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(156) 
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As  described  in  Section  3.2.3,  two  tricks  are  used  to  evaluate  efficiently  the  grid 
cell  power.  The  first  trick  is  to  take  advantage  of  the  translational  properties  of  the 
GPSD.  The  power  in  a  Kx-Ky- cod  grid  cell  is 

{ko  +  \l2)Ao)o 

EKD{l<-x,ky,kD)  =  j  27^  ^oicoo)  (157) 

{ki:)-\l2)A(jt)i:, 


{k^^MDAKx 

dj^ 

2k 

(k,-\/2)AK, 


(k.  +  ]/2)AKy 


CdK 
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{ky 


2k 

\l2)AKy 


Skc 


Kx- 


„  Cy/Toftlp 


Ky- 


The  key  to  simplifying  this  expression  is  to  note  that  the  Doppler  grid  cell  size  is 
relatively  small  because  of  the  large  number  of  Doppler  samples  that  are  required  to 
produce  a  long  time  realization.  Thus  it  can  be  assumed  that  Skc  is  constant  over  a 
Doppler  cell,  and  Equation  157  reduces  to  a  function  of  Doppler  frequency  times  a 
shifted  function  of  angle: 

EKDikx,ky,ko)  =  Eoiko)  EKcikx-mx,ky-my)  (158) 


where 


Eoiko) 


erfc 


(ko  -  1/2)ToA«d 
2 


-  erfc 


iko  +  )/2)TQAQ)o 
2 


(159) 


The  quantity  EKcikx-rnx,ky-my)  is  the  power  in  a  shifted  Kx-Ky  grid  cell  where 


EKcikx,ky)  = 


(k^  +  \/2)AKx  {ky  +  \l2)AKy 
dKx  fdKy 

2n 

{kx-\l2)AKy,  {ky-M2)AKy 


(160) 


and  the  Doppler  shift  indices  are  given  by 

//2x  =  int 

niy  =  int 


Cxt'^O^^D 

Hx^Kx  J 

CylTfjCOo 

JlyAKy 


(161a) 

(161b) 


Because  of  the  Kx-Ky  cross  terms  in  the  expression  for  Skc,  an  easily-evaluated 
closed-form  result  is  still  not  obtainable  for  Ekc- 
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B.1.2  Evaluation  of  Angular  Cell  Power  on  a  Kp-Kq  Grid. 

The  second  trick  used  in  the  channel  model  technique  is  to  note  that  a  rotation  by 
the  angle  (Eqn.  65)  in  the  Kx-Ky  plane. 


1  1  ^CxtCyt  ^x 

=  [ifd  Sc\,)  -  eld  -  cj,) 


(162) 


produces  an  orthogonal  form  of  the  GPSD  that  does  not  contain  angular  cross  terms, 
and  is  therefore  readily  integrated.  This  orthogonalized  GPSD  is  given  by  Equation  66 
that  has  the  following  form  for  its  angular  part; 


SKc{Kp,Kq)  = 


exp 


44 


4(1  4(1 


(163) 


The  quantities  Qq,  Cpt,  and  Cqi  are  given  by  Equations  67  and  68  in  terms  of  the 
corresponding  quantities  defined  in  the  x-y  coordinate  system.  The  signal  power  in  a 
Kp-Kq  grid  cell  is 


KKc{kp,kq)  -  Ep{kp)  Eq(kq) 


(164) 


where 


Ep{kp) 


■ikp-\/2)AKpJlp 
.  2^1  -C;,  _ 


-  erfc 


ikp  +  \/2)AKpJlp 
2^1  -  . 


A  similar  expression  holds  for  Eq{kq). 


(165) 


Now  EKc{kp,kq)  can  be  computed  on  a  fine  Kp-Kq  grid,  and  the  values  simply 
assigned  to  the  Kx-Ky  grid  cell  in  which  they  fall.  The  Kx  -Ky  cell  indices  are 
computed  as  follows: 


kx 


int 


kpAKpCosi)  -  kpAKps'ini) 
AKx 


(166a) 


ky  =  int 


kpAKps'in^  +  kpAK  pco^i}' 
AK, 


(166b) 


The  total  power  in  a  Kx-Ky  grid  cell  is  then  the  sum  of  all  EKc{kp,kq)  values  that  fall 
within  the  Kx-Ky  cell.  Roughly  ten  Kp-Kq  grid  cells  are  required  within  each  Kx- 
Ky  cell  for  this  brute-force  procedure  to  work.  Thus  the  Kp-Kq  cell  sizes  are 
determined  by  the  expressions: 
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Implementation  details  for  the  evaluation  of  EKc{l<-x->nx,ky-my)  are  discussed 
in  this  section.  This  implementation  minimizes  the  number  of  computations  of 
EKc(.kx-mx,ky-my)  by  using  the  shifting  property  for  non-zero  Doppler  frequencies, 
and  minimizes  the  number  of  computations  of  EKc{kp,kq)  by  carefully  defining  the 
region  of  the  Kp-Kq  grid  where  EKc(kx-fnx,ky-my)  is  required. 

B.2.1  Shifted  Angular  Grid  Cell  Power  Encikx-ntxiky-my). 

In  a  computer  implementation  of  the  channel  simulation,  EKcikx,ky)  is  an  array 
with  indices 
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(171a) 

(171b) 


kx  =  -Nxl2,-Nxl2+\,  ■■■,NxJ2-\ 

ky  =  -Nyl2,  -Nyl2+\,  -  ,Nyl2-\  . 

The  shifting  process  is  then  just  a  matter  of  rearranging  the  data  within  the  array. 
Before  discussing  the  algorithms  used  to  shift  the  Ekc  array,  it  is  useful  to  understand 
the  frequency  at  which  this  shifting  process  will  occur. 

Shifting  Frequency.  In  evaluating  the  discrete  impulse  response  function  using 
Equation  97,  the  Doppler  frequency  discrete  Fourier  transform  is  performed  last,  after 
the  two  angular  DFTs.  Evaluation  of  the  Doppler  frequency  spectral  components 
h/^ijAZyko^coo)  starts  at  zero  Doppler  frequency  (^d  =  0)  and  proceeds  to  the  maximum 
positive  Doppler  frequency  (kD=No/2-\).  Spectral  components  for  negative  values  of 
Doppler  frequency  can  be  obtained  by  taking  advantage  in  the  symmetry  of  the  power 
in  an  angle-Doppler  grid  cell,  EDikD)EKc(kx-rnx,ky-my).  Both  Ed  and  Ekc  are  even 
functions  of  their  arguments.  Thus  Eoi-ko)  is  equal  to  Eoiko)-  and 
EKclkx+^i'ftxKky+\my\\  is  equal  to  EKc[-kx-lmx\,-ky-\my\].  Therefore  the  Doppler 
frequency  spectral  components  for  negative  Doppler  frequencies  can  be  evaluated 
using  the  angle-Doppler  grid  cell  power  calculated  for  the  corresponding  positive 
Doppler  frequencies  with  kxAKx  and  kyAKy  replaced  by  -kxAKx  and  -kyAKy  in 
Equation  97.  (The  residual  Doppler  shifts,  £x  and  Cy,  in  Equation  97  also  change  signs 
for  negative  Doppler  frequencies.) 

Now  as  each  new  Doppler  frequency  spectral  component  is  computed  (i.e.,  for 
each  value  of  ko,  ko^l,  2,  ■■■ ,  A'o/2-1),  the  incremental  Doppler  shift  indices  are 

Cxt'^okoAOiD  1  /m  \ 

nix  =  int  Q^AKx  (172a) 

.  ^  CylTokoACOo  1  n'7'>K^ 

my  =  intj^  iyAKy  (172b) 

where  Mxikp)  and  Myiko)  are  the  cumulative  shift  indices: 

kp 

Mxiko)  =  Z  niximo)  ,  Mx{-\)  =  0  (173a) 

mp  =  0 
kp 

Myiko)  =  Z  myimp)  ,  My(-l)  =  0  .  (173b) 

mp  =  0 

The  corresponding  residual  shifts  are: 
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£x  = 


C  xt'^okpAcOp 
Hx 


MAkp)AKx 


(174a) 


_  CyljQkpACOp 


-y  - 


-  My{kp)AKx 


(174b) 


The  normalized  Doppler  frequency  grid  cell  size  {TqA(Op)  is  small  compared  to 
the  normalized  angular  grid  cell  sizes  (HxAKx  and  HyAKy)  because  there  are  generally 
more  Doppler  grid  cells  than  angular  grid  cells  (in  any  one  dimension).  Thus  rhe 
incremental  Doppler  shift  indices  nix  and  niy  may  be  zero  for  several  sequential  values 
of  kp.  Shifting  of  the  EKc(kx,ky)  array  in  the  jc-direction  is  necessary  approximately 
every  ix^^xlC xiT^Aop  Doppler  cells,  and  shifting  in  the  y-direction  is  necessary 
approximately  every  JlyAKylCytiQAcop  Doppler  cells.  Note,  however,  that  the  residual 
shifts  will  change  for  every  new  value  of  kp. 

Shifting  Algorithm.  Assume  for  the  moment  that  EKcikx,ky)  has  been  computed 
and  that  the  shifted  array  E Kcikx- fnx,ky- nty)  is  desired.  The  actual  computation  of 
EKc{kx,ky)  for  arbitrary  kx  and  ky  will  be  discussed  in  the  next  subsection. 

For  non-negative  values  of  C xi  and  Cyu  the  incremental  Doppler  shift  indices  mx 
and  niy  will  also  be  non-negative.  However,  the  general  model  puts  no  restrictions  on 
the  signs  of  the  space-time  correlation  coefficients  as  long  as  the  square  root  of  the  sum 
of  the  squares  of  these  coefficients  is  between  zero  and  one.  Therefore,  a  completely 
general  algorithm  must  include  the  possibility  of  positive  and  negative  values  of  the 
incremental  Doppler  shifts. 

Now  assume  that  Encikx-nix.ky)  is  desired  where  nix  positive.  An  algorithm 
that  performs  this  shifting  is 

Ekc{Nx/2  -  1  ,ky)  <r-  Ekc(Nx/2  -  1  -  mx,ky) 

Ekc{Nx/2  -  2,ky)  <-  EKciNx/2  -  2  -  mx,ky) 


(175) 


EKc{-NxJ2  +  mx,ky)  ^  Ekc{-N x/2,ky)  . 

Note  that  after  the  shifting,  EKci-^xl2,ky)  through  Ekc{-^xI2  + mx-'^,ky)  have  not 
been  defined.  These  grid  cell  powers  will  then  need  to  be  computed  after  thp  shifting 
is  performed. 

If  nix  is  negative,  a  shifting  algorithm  is 
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EKc(-Nx/2,ky)  <r-  EKc(-Nx/2-mx,ky) 

EKci-Nx/2  +  1  ,ky)  ^  EKci-Nx/2  +  1  -mx,ky) 


(176) 


EKc{Nxl2-\-^mx,ky)  ^  EKc{Nx/2-\,ky)  . 

Note  that  after  the  shifting,  EKc(^x/2  +  mx>ky)  through  EKciNxl2~\,ky)  have  not  been 
defined  and  will  need  to  be  computed.  Similar  algorithms  can  be  defined  to  shift 
EKc(^x,ky  +  niy)  by  positive  or  negative  my.  The  algorithm  for  computing  EKc{kx,ky) 
is  discussed  next. 

B.2.2  Angular  Grid  Cell  Power  EKcikx,ky)  . 

Depending  on  the  Doppler  frequency,  Ekc  may  be  computed  over  all  or  part  of 
the  Kx-ky  grid.  When  the  Doppler  frequency  is  zero  and  Efcc  is  computed  for  the 
first  time,  then  Ekc  is  computed  over  the  entire  angular  grid.  However,  for  positive 
values  of  the  Doppler  frequency,  Ekc  is  obtained  by  shifting  and  new  values  of  Ekc 
are  required  only  in  a  small  region  of  the  Kx-Ky  grid.  Angular  grid  cell  power 
values  for  negative  Doppler  frequencies  are  obtained  directly  from  the  corresponding 
positive  Doppler  frequency  values,  and  no  new  calculations  of  Ekc  are  required. 

This  section  describes  an  algorithm  for  computing  EKcikx^ky)  with  arbitrary 


limits  on  the  indices.  In  general  the  limits  on  kx  and  ky  are  kx,] 
ky^2-  When  Ekc  is  computed  for  the  first  time. 

to  kx,2  and  (:y,i  to 

kxA  =  'NJ2 

(n7a) 

kx.2  =  Nx/2-\ 

(177b) 

ky,\  =  —Nyll 

(177c) 

ky,2  =  Ny/2-\  , 

(177d) 

and  afterward. 

[  ~Nxl2  if  >  0 

kx.i  = 

[  Nx/2  +  mx  if  <  0 

(178a) 

[  -N xl2  A-  mx-\  if  >  0 

kx2  ^  \ 

1  At/2-1  ifw;t<0 

(178b) 
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-Ny/l 

if  niy  >  0 

N  y/2  +  niy 

if  my  <  0 

-Nyll  +  my  - 1 

if  my  >  0 

Ny/2  -  1 

if  niy  <  0 

(178c) 

(178d) 


Kp-Kq  Rei’ion.s.  Given  these  limits,  the  first  task  is  to  compute  the  Kx-Ky 
region  on  the  Kp-Kq  grid  defined  by  the  limits.  This  rectangular  region  is  defined  by 
the  four  points  ^f<-xA,Ky,2\  and  {Kx,2,Ky,2)  where 


K 


>t,i  - 


kxA  -  2-^x{kD) 


^x,2  -  kxA  +  'y-Mxiko) 


KyA  = 


Kya  = 


kyw  -  2  “  ^yiko) 


kyw  2  ~  ^ y(^D) 


AK, 


AK, 


AK. 


AK, 


(179a) 

(179b) 

(179c) 

(179d) 


The  corresponding  Kp-Kq  coordinates  are 

l^PA  =  l^xA  cos  +  sin  t?  (180a) 

=  /Cx.i  cos  t7  + /iL'y,2  sin  7?  (180b) 

KpA  =  Kx.2  cos  t?  +  Ky^2  sin  (180c) 

KpA  =  Kx,2COS  x}  +  Ky^i  sin  t?  (180d) 

KqA  =  ^>M  cos  ^-Kxa  sin  t?  (180e) 

^q,2  =  ^y,2  cos  t&-Kxa  sin  t7  (180f) 

Kq,7>  =  /C^-,2  cos  - /fx.2  sin  (180g) 

KqA  =  KyA  cos  x'>-Kx,2  sin  t?  .  (180h) 


The  algorithm  that  determines  the  region  of  the  Kp-Kq  plane  that  is 
encompassed  by  the  Kx-Ky  region  and  that  contains  signal  energy  depends  on  Kp^ 
being  the  smallest  Kp  value.  If,  in  fact,  Kp,2  is  less  than  Kp^,  then  the  Kp-Kq 
coordinates  must  be  renamed: 
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Ep  =  Kp^x 

(181a) 

Kq  =  Kq^x 

(181b) 

KpA  -  Kp^2 

(181c) 

II 

(181d) 

Kp,2  -  Kp^j 

(181e) 

Kq,2  =  Kq^y 

(181f) 

II 

asig) 

II 

rh 

(181h) 

II 

(181i) 

KqA  =  Kq  . 

(181j) 

With  this  ordering  of  the  Kp-Kq  coordinates,  the  smallest  value  of  Kp  is  Kp^x 
and  the  largest  value  is  Kp^y.  The  smallest  value  of  Kq  is  Kq^^  and  the  largest  value  is 
Kq^2-  Thus  the  Kx-Ky  region  is  outside  the  limits  of  the  Kp-Kq  grid  if  Kp^y  < 
-Kp^maxf  Kp^x  ^  Kp^tnax^  Kq^y  <  Kq^max^  ot  ^^,4  >  Kq^rnax-  if  none  of  these  conditions 
are  met,  then  there  is  signal  energy  within  the  Kx-Ky  region,  and  the  calculation 
continues.  If  any  of  these  conditions  are  met,  then  the  Kx-Ky  region  falls  outside  the 
region  in  the  Kp-Kq  plane  where  there  is  signal  power,  and  there  is  no  need  to 

continue  the  calculation. 

There  are  nine  separate  cases,  illustrated  in  Figure  19,  when  the  overlap  between 
the  Kx-Ky  region  and  the  Kp-Kq  region  containing  99.9  percent  of  the  signal  energy 
is  considered.  The  rectangle  for  each  case  corresponds  to  the  Kx-Ky  region  over 
which  the  calculation  of  Ekc  is  to  be  done.  The  numbered  corners  correspond  to  the 
Kp-Kq  coordinates  of  the  Kx-Ky  rectangle  given  by  Equation  180.  The  dashed  lines 
illustrate  the  ±Kqjnax  limits  of  the  Kp-Kq  grid.  Case  1  configurations  are  determined 
by  the  condition  that  -Kq^^nax  <  ^<7,1  <  Kq.max-  Case  2  configurations  occur  when  this 
condition  is  not  met.  The  shaded  areas  in  the  figures  illustrate  the  part  of  the  Kp-Kq 
plane  bounded  by  the  Kx-Ky  region  that  also  meet  the  condition  -Kq^rnax  <  Kq  < 
^q.max- 

Kp-Kq  Power  Centroid  Lines.  Once  the  Kx-Ky  region  on  the  Kp-Kq  plane 
has  been  defined,  an  efficient  method  of  computing  the  signal  power  is  to  draw  a 
power  centroid  line  across  the  region,  as  illustrated  by  the  lines  across  the  shaded  areas 
in  Figure  19.  In  two  cases  (2a- 1  and  2b- 1),  this  line  is  colinear  with  the  ±Kq^rnax  line. 
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The  power  in  Kp~Kq  grid  cells  is  calculated  for  each  value  of  Kp  in  the  shaded 
regions,  by  starting  with  the  cell  on  the  line  and  p’^oceeding  to  larger  values  of  Kq  until 
the  upper  Kq  boundary  of  the  shaded  region  is  encountered.  Then  the  power  in  the 
first  cell  below  the  line  is  calculated  and  so  on  until  the  lower  Kq  boundary  of  the 
shaded  region  is  encountered. 

The  endpoints  of  the  line  depend  on  the  case.  For  case  1: 


^p,start  -  ^pA 
^p,stop  -  f^p3 
^q,start  -  Kq^^ 
^qjtop  -  ^c/,3 


For  case  1  a: 


(182a) 

(182b) 

(182c) 

(182d) 


For  case  lb; 


^p.stan  -  ^p,i 
KpAiop  =  A(/7,4  + 


start  -  Kq^\ 
^q,stop  =  Kq^rnax  • 


(183a) 

(183b) 

(183c) 

(183d) 


For  case  2a: 


^p,start 

11 

^p.stop 

~  ^p,2~(^q,max  + 

Kqa 

.  ^P.3  - 

~^q.2 

^q, start 

-  ^qA 

^q,stop 

—  ~Kqjnax  • 

^p,sta  t 

~  ^PA  +  i^qjnax- 

■KqA 

-Ko, 

~^qA 

f^p.stop 

II 

f^q.start 

-  Kq,max 

Kq,stop 

-  ^q3  ■ 

(184a) 

(184b) 

(184c) 

(184d) 

(185a) 

(185b) 

(185c) 

(185d) 
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J 


For  case  2a- 1 : 


For  case  2a-2; 


For  case  2b: 


For  case  2b- 1 ; 


(186a) 

(186b) 

(186c) 

(186d) 

(187a) 

(187b) 

(187c) 

(187d) 

(188a) 

(188b) 

(188c) 

(188d) 

(189a) 

(189b) 

(189c) 

(189d) 
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Finally,  for  case  2b-2: 


Kp^start  -  Kpp-{Kq,nax-^^q,\)  Kq'^-K^qp 

f^p,stop  =  ^p,4  +  ^f^q,max-f^qA)Kq  2  -  ^q’,4 

f^q,start  -  -f^q,max 
f^q,stop  -  Kq  max  ■ 

Once  the  endpoints  of  the  line  are  denned,  the  slope  of  the  line  is 


(190a) 


(lyOb) 

(190c) 

(190d) 


slope  = 


^p,stop- i^pM^n  ■ 


(191) 


Kp-Kq  and  Kx-Ky  Grid  Power.  The  final  step  is  to  compute  the  Kp-Kq  grid 
cell  power  and  to  assign  that  power  to  Kx-Ky  grid  cells  within  the  Kx-Ky  region. 


The  indices  of  the  Kp  grid  cells  within  the  Kx-Ky  region  are 


kp,.stari  -  itlt 


n\d.\{Kp^start,  —f^p,max)  1 


2  sign  {Kp^stari) 


(192a) 


^p,siop 


=  int 


min(/('p,.y/<-;p,  Kp^fnax)  1 


2  sign  {Kp^stop) 


(192b) 


where  sign  (•)  is  the  sign  function  (i.e.,  a  function  that  is  equai  to  +1  if  the  argument 
positive  and  is  equal  to  -1  otherwise)  and  the  maximum  kq  index  is 


kqjnax  —  ittt 


Kqqnax  1  . 

"2^+  2 


(193) 


The  minimum  and  maximum  functions  that  appear  in  Equation  192  constrain  Kx-Ky 
region  to  be  within  the  ±Kp^rnax  bounds  where  99.9  percent  of  the  signal  energy  lies. 
The  1/2  sign  {K)  terms  cause  the  integer  function  to  round  its  argument  in  the  desired 
way. 

Now  a  loop  is  executed  over  the  kp  index,  starting  at  kp^start  and  ending  at 
kp.stop-  For  each  value  of  kp,  the  energy  in  a  AKp  grid  cell  is  given  by  Equation  165 
that  is  reproduced  here: 


F^pikp)  =  2  erfc 


{kp-MDAKpUp 

2-4\  -  cl 


(165) 
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Corresponding  to  each  value  of  kp  is  a  range  of  kq  values.  The  loop  over  Kq 
values  starts  at  the  power  centroid  line,  which  has  a  Kq  value  of 


_  ly  A-  1 1-  Alt'  k'  •'  ^QiStop _ Start 

l^q,L  -  q, start  +  {kp^Kp-Kp^stari)Xo^^op^^Xn7[^l 


(194) 


and  an  index  of 


int 


^Kq 


^  sign  {Kq^L) 


(195) 


The  Kq  loop  starts  at  tne  kq  value  of  the  line  and  proceeds  to  higher  values  of  kq  until 
the  limits  of  the  Kx~Ky  region  are  encountered,  as  described  below.  Then  the 
calculation  is  restarted  at  the  first  Kq  cell  below  the  line  and  kq  is  decremented  until 
the  Kx-Kx  region  boundary  is  again  reached.  For  each  Kq  grid  cell,  the  signal  power 
is 


F-q{kq)  =  T  erfc 


{kq-Ml^AKqUq 


C^, 


erfc 


{kq  +  MDAKq^q 

2V1  -  , 


(196) 


and  the  total  Kp-Kq  grid  cell  power  is  just  Ep{kp)Eq{kq). 


Finally  the  Kp-Kq  grid  cell  power  is  assigned  to  Kx-Ky  grid  cells,  and 
Ep{kp)Eq{kq)  is  added  to  the  power  already  assigned  to  each  Kx-Ky  grid  cell.  The  Kx 
-Ky  grid  cell  indices  are  computed  as 


kx  =  int 


kx  =  int 


kpAKpQO'sX')  -  kqAKqS'in-d  -t-  M x{kD)AKx 
AKx 

r kpAKp's'wMJ  ^  kqAKqCO'sxJ  +  My{k[))AKy 
AKy 


(197a) 

(197b) 


These  indices  are  also  used  to  stop  the  loop  over  kq.  This  loop  is  terminated  whenever 
kx  or  ky  fall  outside  the  limits  given  by  Equations  177  or  178.  Thus  when  kq  is  being 
incremented  for  cells  above  the  power  centroid  line,  the  kq  loop  is  continued  as  long  as 
^.r,i  <kx<  kx,2  itnd  ky^i  <  ky  <  ky^2-  When  either  of  these  conditions  are  not  met,  the 
loop  is  reset  to  the  first  kq  value  below  the  line  and  kq  is  decremented  as  long  as  kx,\  < 
l^x<kx,2  iind  A:y,i  <  ky  <  ky^2-  When  either  of  these  conditions  are  not  met,  the  next 
value  in  the  kp  loop  is  executed. 
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APPENDIX  C 

SAMPLED  RAYLEIGH  FADING 


This  appendix  is  intended  to  address  the  question:  How  close  is  an  ACIRF 
realization  of  the  impulse  response  function  to  Rayleigh  fading?  Closely  related 
questions  that  arise  during  simulation  or  hardware  testing  activities  using  ACIRF 
realizations  are;  How  many  decorrelation  times  per  realization  are  necessary?  How 
many  samples  per  decorrelation  time  are  necessary?  How  should  interpolation  be  done 
between  samples?  These  questions  are  answered  in  part  in  the  DNA  signal 
specification  for  nuclear  scintillation  \\Vittwer,  1980]  which  requires  a  minimum  of 
100  decorrelation  times  per  realization  and  10  samples  per  decorrelation  time. 
However,  experience  has  shown  that  receiver  performance  can  show  considerable 
statistical  variation  when  the  minimum  realization  length  is  used.  This  is  particularly 
true  of  links  that  have  large  power  margins  and  are  susceptible  to  only  the  deepest 
fades.  Of  course  the  best  way  to  answer  these  questions  is  to  measure  link 
performance  with  realizations  of  increasing  length  and  resolution  until  the  statistical 
variation  in  the  results  from  one  realization  to  the  next  is  acceptable.  Unfortunately, 
the  luxury  of  doing  this  analysis  often  does  not  exist. 

The  next  higher  level  of  analysis  of  these  questions  is  to  look  at  the  statistics  of 
ACIRF  realizations.  This  is  the  approach  that  will  be  taken  in  this  appendix.  The 
first-order  statistics  of  the  realizations  are  measured  by  calculating  the  cumulative 
distribution  of  the  amplitudes  and  amplitude  moments  and  comparing  these  quantities 
with  ensemble  values  for  Rayleigh  fading.  The  second-order  statistics  of  the 
realizations  are  measured  by  calculating  the  mean  duration  and  separation  of  fades  and 
again  comparing  these  quantities  to  ensemble  values. 

In  general,  the  received  signal  r{t)  may  be  written  as  the  convolution  of  the 
channel  impulse  response  function  with  the  transmitted  modulation  m{t)  that  is 
given  by  Equation  ( 1 ): 


r{t)  =  I  dz  .  (1) 

0 

In  either  softw'are  link  simulations  or  in  hardware  channel  simulators,  Equation  (1)  can 
be  implemented  as  a  tapped  delay  line; 

N,-\ 

r{t)  =  X  fi{jAz,t)  m{t-jAz)  Az  (198) 

J  =  0 


where  is  number  of  taps  on  the  delay  line;  Az  is  the  delay  spacing  of  the  delay  line; 
h(tJAz)  is  the  time  varying  complex  weigiit  of  the  tap;  and  m(t)  is  the  input  signal 
modulation.  In  a  software  simulation  of  link  performance,  time  may  also  be  discretely 
sampled  (i.e.,  t  =  kiAt). 
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Under  Rayleigh  fading  conditions,  is  a  complex,  zero  mean,  normally 

distributed  random  variable  and  thus  has  a  Rayleigh  amplitude  distribution.  It  then 
follows  from  Equation  (170)  that  r{i)  is  also  a  complex,  zero  mean,  normally 
distributed  random  variable  with  a  Rayleigh  amplitude  distribution. 

A  complete  analysis  of  these  issues  would  consider  the  statistics  of  each  delay  of 
the  discrete  impulse  response  function  h{jAT,kTAt).  However,  this  is  beyond  the  scope 
of  this  appendix.  Therefore,  statistical  measurements  of  the  flat  fading  impulse 
response  function  h{kjAt),  where 


A/t-  1 

hikjAt)  =  X  h(jAT,kTAt)Ar  ,  (199) 

j=0 

will  be  presented  in  this  appendix.  The  statistics  of  hikjAt)  will  give  some  indication 
of  the  statistics  of  the  frequency  selective  impulse  response  function  h(jAr,krAt). 

Although  the  realizations  of  the  impulse  response  function  are  usually  generated 
with  samples  spaced  at  Tq/IO,  the  sampling  period  of  simulated  or  tested  receivers  can 
be  much  smaller  than  To/10.  There  are  at  least  three  approaches  to  this  problem.  One 
approach  is  to  sample  the  impulse  response  function  at  a  rate  equal  to  the  sample  rate 
of  the  receiver.  However,  if  the  sample  period  is  much  smaller  than  Tq,  this  results  in 
very  large  realizations  in  order  for  each  realization  have  the  required  100 
decorrelation  times.  Another  approach  is  to  hold  the  impulse  response  function 
constant  during  the  period  To/lO,  and  change  it  abruptly  at  the  end  of  the  period  to  the 
next  value  of  the  impulse  response  function.  In  principle  this  procedure  is  acceptable 
because  Ty/lO  sampling  should  result  in  small  changes  from  one  value  of  the  impulse 
response  function  to  the  next.  A  third  approach  is  to  interpolate  between  values  of  the 
impulse  response  function. 

For  a  finite  length  realization,  measured  statistics  will  be  random  variables  with 
some  mean  and  standard  deviation.  The  variation  of  the  measured  values  about  the 
ensemble  values  should  go  approximately  as  {Nq/Nt)^^^  where  Nj/Nq  is  the  number  of 
decorrelation  times  in  the  realization  (i.e.,  the  number  of  “independent  samples”  of 
Rayleigh  fading).  To  show  the  variation  of  measured  statistics  of  the  impulse  response 
function  generated  by  ACIRF,  1000  independent  realizations  were  created  with 
Nt=  1024,  2048,  or  4096  time  samples  and  Ao=10  samples  per  decorrelation  time. 
Measurements  of  first-  and  second-order  statistics  are  compared  with  ensemble  values 
in  the  next  subsections. 

The  time  between  realization  points  is  At  =  Tq/Nq.  Dana  [1988]  has  shown  that 
A()  =  10  is  sufficient  when  the  sample  interval  Ts  of  the  realizations  is 

Ts  =  AtM  =  To/40  (200) 

using  linear  interpolation.  This  sampling  has  been  used  to  generate  the  results  below. 
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C.l  FIRST-ORDER  STATISTICS. 


One  criterion  for  deciding  that  a  realization  has  Rayleigh  amplitude  statistics  is 
that  the  moments  of  the  amplitude  should  agree  with  Rayleigh  values.  Ensemble  values 
for  the  moments  of  the  amplitude  are  easily  obtained  from  the  probability  density 
function  for  Rayleigh  fading; 


(201) 

where  a  is  the  amplitude  of  the  fading  signal  (i.e.,  a{t)  =  ^lr{t)r*{t)  ]  and  Pq  is  the  mean 
power  of  the  realization.  The  moment  of  the  amplitude  is  computed  using  the 
equation 


/y  %  2a 
f(a)  =  ^exp 
•  n 


<a«>  =  j  f(a)  da  .  (202) 

0 

The  first  four  moments  of  the  amplitude  and  the  scintillation  index  54  are: 


(a)  = 

(203a) 

(a^)  =  Po 

(203b) 

<a^>  =  \^nPl 

(203c) 

r^O 

CM 

II 

(203d) 

L  {a^f  J  ■ 

(203e) 

It  is  necessary,  but  not  sufficient,  that  54  equal  unity  for  Rayleigh  fading.  The 
scintillation  index  is  a  good  measure  of  the  statistics  of  flares  but  not  of  fades. 

Statistics  that  are  sensitive  to  the  distribution  of  fades  are  the  first  two  moments 
of  the  log  amplitude,  {x)  and 

iX)  =  (Ina)  =  |lnPo-2  (204a) 

2 

iX^)  =  (In^a)  =  +  ^  (204b) 

where  yis  Euler’s  constant  (7=  0.5772 1 57  -  )- 
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To  measure  the  expected  variation  of  the  first-order  statistics  of  a  realization, 
amplitude  moments  were  measured  for  each  realization.  For  example,  the  measured 
first  moment  of  the  amplitude  of  the  realization  hkikjAt)  is  given  by 

Nj  _ 

Ilk  =  L  X  V  hk{krAt)hk{krAt)  .  (205) 

/t  /  =  1 

The  mean  and  standard  deviation  of  jik  is  then  computed  from  the  values  for  the  1000 
realizations.  Similar  equations  hold  for  the  other  moments. 

Measured  values  of  the  mean  and  standard  deviation  (denoted  sigma)  of  the 
amplitude  moments,  ^4,  and  the  first  two  moments  of  the  log  amplitude  are  presented 
in  Table  11  for  Nj  equal  to  1024,  2048,  and  4096  and  Nq  equal  to  10  in  all  cases. 
Measured  values  in  the  table  have  been  normalized  to  their  ensemble  values. 

Measured  values  for  a  single  realization  should  equal  the  average  values  plus  or 
minus  one  or  two  standard  deviations.  It  can  be  seen  from  the  table  that  the  average 
values  are  close  to  the  ensemble  values  (i.e.,  the  normalized  mean  values  are  close  to 
unity)  but  the  standard  deviations  of  the  higher  moments  can  be  as  large  as  20  percent 
of  the  average  values  for  the  shorter  IOOTq  {Nj  =  1024,  Nq  =  10)  realizations.  The 
data  also  show  that  the  standard  deviations  do  indeed  go  as  (Nq/Nj)^^^  because  the 
values  for  /Vy  =  4096  realizations  are  roughly  half  the  corresponding  values  for  Nj-  = 
1024  realizations. 


Table  11.  Amplitude  moments  of  ACIRF  realizations. 


Nr  =  1024 

Nr  =  2048 

Nr  =  4096  | 

Moment 

Mean* 

Mean* 

Mean* 

0.9993 

0.0544 

0.9983 

0.0398 

0.0291 

0.9976 

0.9959 

0.0772 

QH| 

0.0559 

0.9949 

0.9927 

0.1173 

0.9967 

0.0849 

0.9914 

0.2258 

0.9885 

0.1636 

0.9954 

0.1191 

^4 

0.9820 

0.0844 

0.9891 

0.0610 

0.9958 

0.0460 

ix) 

0.9861 

0.1063 

0.9924 

0.0775 

0.9973 

0.0578 

ix^) 

0.9859 

0.1379 

0.9930 

0.1010 

0.9969 

0.0739 

*Mean  and  sigma  nomialized  to  ensemble  values 
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Another  criterion  for  the  first  order  statistics  is  close  agreement  between  the 
measured  cumulative  distributions  of  the  realizations  and  the  Rayleigh  cumulative 
distribution  FiP): 


{P 

F{P)  =  lfia)da 
0 


1  -  exp 


(206) 


where  P  is  instantaneous  power  (P  =  a").  Measured  cumulative  distributions  (dots  plus 
or  minus  one-sigma  error  bars)  are  plotted  in  Figures  20a,  20b,  and  20c  for  the  three 
values  of  A/y  along  with  the  ensemble  curve  (Eqn.  206).  One  sigma  error  bars  are 
computed  by  measuring  the  variation  of  the  cumulative  distribution  points  over  the 
1000  realizations.  Mean  values  for  the  1000  realizations  are  plotted  as  solid  dots  in  the 
figures. 


It  can  be  seen  from  Figure  20a  that  IOOTo  realizations  do  indeed  have,  on  the 
average,  a  Rayleigh  distribution  of  fades  down  to  at  least  30  dB.  It  is  clear,  however, 
that  the  possible  deviation  from  Rayleigh  fading  of  a  single  realization  becomes  larger 
as  one  examines  deeper  fades.  For  larger  values  of  Nj,  as  shown  in  Figures  20b  and 
20c,  the  variation  of  the  cumulative  distribution  for  a  single  realization  from  Rayleigh 
fading  becomes  less,  again  decreasing  roughly  as  (A'o/A'y)''^. 


Figure  20a.  Cumulative  distribution  of  IOOTo  realizations. 


99 


Figure  20c.  Cumula 


C.2  SECOND-ORDER  STATISTICS. 


The  fidelity  of  ACIRF  realizations  in  reproducing  the  second  order  statistics  of 
the  fading  will  be  demonstrated  by  comparing  the  mean  fade  duration  and  separation 
with  ensemble  values.  Ensemble  values  for  the  mean  duration  T^ur  and  separation  sep 
of  fades  below  the  power  level  P  are  [Dana,  1988]: 


{TdurjP)) 

^0 


TZPo 

1 

2 

f 

P' 

.  2P. 

jexp 

Po. 

(207a) 


{TseniP)) 


izPq 

1 

2 

p' 

.  2P_ 

exp 

i 

fo. 

(207b) 


The  mean  fade  duration  is  a  good  statistic  to  examine  for  communications 
applications  because  errors  often  occur  in  bursts  during  deep  fades.  If  the  fades,  on 
the  average,  are  too  long  or  too  short,  the  error  bursts  will  not  have  the  proper 
durations  and  the  resulting  receiver  performance  may  be  misleading.  Fade  duration 
measurements  and  the  ensemble  curve  for  a  Gaussian  Doppler  spectrum  are  shown  in 
Figures  21a,  21b,  and  21c  for  the  three  values  of  Ny-. 

The  fact  that  the  measured  values  mean  of  fade  duration  do  not  level  off  at  Tq/Aq 
is  due  to  sampling  the  realizations  at  To/40  using  linear  interpolation  between  the 
realization  points.  If  the  sampling  was  done  at  TqINq,  then  the  minimum  fade  duration 
would  be  just  TqINo  (i.e.,  one  sample  interval  of  the  realization).  Thus  a  conclusion 
that  can  be  drawm  is  that  the  second  order  statistics  of  deep  fades  in  a  realization 
improve  as  the  number  of  samples  between  realization  points  increases.  This  is  not  to 
say  that  the  durations  of  50  or  60  dB  or  deeper  fades  can  be  accurately  reproduced 
from  100 To  realizations  generated  with  At  =  Tq/IO.  However,  the  duration  of  30  dB 
fades  or  less  can  be  reproduced  from  these  realizations  with  appropriate  sampling  of 
the  realizations. 

Measured  and  ensemble  mean  fade  separations  for  these  three  cases  are  shown  in 
Figures  22a,  22b,  and  22c.  It  is  likely  that  IOOTq  realizations  will  not  have  two  fades 
below  the  25  or  30  dB  level  so  a  fade  separation  measurement  cannot  be  made.  Thus 
the  error  bars  at  these  levels  are  large  and  the  measured  separation  for  30  dB  fades  is 
low  by  a  factor  of  almost  10.  For  fades  less  than  20  dB  or  so,  the  IOOTq  realizations 
reproduce  the  ensemble  values  for  fade  separation.  If  accurate  separation  statistics  of 
deeper  fades  are  of  concern,  however,  then  IOOTq  realizations  may  not  be  adequate.  It 
is  clear  from  the  plots  in  Figure  22  that  400^^,  realizations  are  necessary  to  reproduce 
accurately  the  mean  separation  of  30  dB  fades. 


101 


I? 


Power  Level  PIP ^  (dB) 

Figure  21c.  Mean  fade  duration  of  400To  realizations. 
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Figure  22a.  Mean  fade  separation  of  IOOTq  realizations. 
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Figure  22b.  Mean  fade  separation  of  200to  realizations. 
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Figure  22c.  Mean  fade  separation  of  400to  realizations. 


APPENDIX  D 

LISTINGS  OF  ACIRF  AND  CIRF  FORTRAN  CODES 


Listings  of  ACIRF  and  CIRF  Fortran  code  are  in  this  appendix  in  Section  D.l. 
The  “INCLUDE”  files  that  are  used  to  set  array  sizes  are  described  in  Section  D.2. 
Limits  on  array  sizes  are  also  discussed  in  second  section. 

D.l  FORTRAN  CODE. 

The  routines  used  by  ACIRF  and  CIRF  are  listed  in  Tables  12  and  13 
respectively.  Common  routines  used  by  both  codes  are  listed  in  Table  14.  A  short 
description  of  the  processing  performed  by  each  routine  is  included  in  the  tables. 


Table  12.  ACIRF  Fortran  code  routines. 


Routine 

Processing 

ACIRF 

•  Reads  in  channel,  antenna,  and  realization  parameters 

•  Calculates  ensemble  filtered  values  of  channel  parameters 

•  Computes  grid  sizes  and  checks  for  consistency 

•  Prints  input  data  and  ensemble  channel  parameters 

•  Initializes  binary  files  for  realizations  of  impulse  response  function 

•  Calls  CHANLl  and  measri 

CHANLl 

•  Establishes  angular  grid 

•  Calls  FI  LAMP  for  power  in  Doppler  frequency  grid  cells 

•  Assigns  angular  grid  cells  to  delay  bins  using  A -r  delta  function  and 
generates  random  voltage  in  each  A- t  cell 

•  Performs  DFT  from  angle  to  position  of  each  antenna 

•  Performs  FFT  from  Doppler  frequency  to  time  for  each  delay  bin 

•  Writes  impulse  response  function  using  writer 

FI LAMP 

•  Calculates  A^-Ay  grid  power  using  a  fine  Kp-Kq  grid 

MEASRl 

•  Reads  im.pulse  response  functions  using  reader 

•  Measures  and  prints  statistics  of  impulse  response  functions 

-  amplitude  moments  versus  delay 

-  decorrelation  time  and  frequency  selective  bandwidth 

-  cross  correlation  of  impulse  response  function  for  all  antennas 

READER 

•  Reads  impulse  response  function  out  of  binary  files  (acirf  version) 

TAUGDl 

•  Computes  energy  in  delay  grid  for  each  antenna  using  pirfi 

•  Stops  ACIRF  if  too  little  delay,  advises  grid  change  if  too  much  delay 

WRITER 

•  Writes  impulse  response  function  into  binary  files  (acirf  version) 

ARCTAN 

•  Inverse  tangent  function  -  used  to  compute  power  in  delay  grid 

BIOEXP 

•  Modified  Bessel  function  e-^l^ix)  -  used  in  pirfi 

PIRFl 

•  Computes  power  impulse  response  function 
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Table  13.  CIRF  Fortran  code  routines. 


Routine 

Processing 

CIRF 

•  Reads  in  channel  and  realization  parameters 

•  Computes  grid  sizes  and  checks  for  consistency 

•  Prints  input  data  and  ensemble  channel  parameters 

•  Initializes  binary  file  for  realizations  of  impulse  response  function 

•  Calls  channel  models; 

-  CHANLO  -  AWGN  channel 

-  CHANL2  -  Frozen-in  model 

-  CHANL3  -  Turbulent  model 

-  CHANL4  -  Flat  fading  mode! 

•  Calls  MEASR2 

CHANLO 

•  Writes  constant  impulse  response  function  using  writer 

CHANL2 

•  Loops  over  delay  bins 

•  Computes  power  and  random  voltage  in  0)d-t  grid  cells  using  taupsd 

•  Performs  FFT  from  Doppler  frequency  to  time  for  each  delay  bin 

•  Writes  impulse  response  function  using  resort 

RESORT 

•  Resorts  impulse  response  function  for  frozen-in  model  from  all  times 
at  each  delay  to  all  delays  at  each  time  and  calls  writer 

TAUPSD 

•  Power  density  in  in  tuo-  fgrid  cells  using  witwer 

WITWER 

•  Wittwer’s  G  function  -  DNA  5662D  p.  34 

CHANL3 

•  Initializes  and  warms-up/^  filters 

•  Computes  random  time  samples  for  each  delay  bin 

•  Writes  impulse  response  function  using  writer 

CHANL4 

•  Initializes  and  warms-up/^  filter 

•  Computes  random  time  samples 

•  Writes  impulse  response  function  using  writer 

TAUGD2 

•  Computes  energy  in  delay  grid  using  pirf2 

•  Stops  CIRF  if  too  little  energy 

•  Recommends  delay  grid  change  if  too  much  delay 

MEASR2 

•  Measures  and  prints  statistics  of  impulse  response  function 

-  amplitude  moments  versus  delay 

-  decorrelation  time  and  frequency  selective  bandwidth 

READER 

•  Reads  impulse  response  function  out  of  binary  files  (cirf  version) 

WRITER 

•  Writes  impulse  response  function  into  binary  files  (cirf  version) 

PIRF2 

•  Power  impulse  response  function  for  frozen-in  model 
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Table  14.  ACIRF  and  CIRF  shared  Fortran  routines. 


Routine 

Processing 

FFT 

•  Fast  Fourier  transform 

PREPRC 

•  Strips  comment  lines  out  of  input  files 

LENGTH 

•  Computes  the  length  of  a  character  string  -  used  in  preprc 

RHO 

•  Measures  6“'  point  of  autocorrelation  function  -  used  in  measrh 

AWGN 

•  Generates  zero-mean,  unity-power  complex  white  Gaussian  noise 

ERFC 

•  Complimentary  error  function 

RANDOM 

•  Machine-independent  uniformly  distributed  random  number  generator 

SIMPSN 

•  Simpson’s  rule  integration 

Table  15  gives  a  cross-reference  matrix  (code  name,  table  number,  and  page 
number)  for  the  following  tables  that  contain  listings  of  the  ACIRF  and  CIRF  Fortran 
code. 


Table  15.  Fortran  listing  cross-reference. 


1  ACIRF 

CIRF  1 

Routine 

Table  No. 

BSSGSil 

mmm 

Table  No. 

ACIRF 

16 

43 

170 

ARCTAN 

23 

HHSH 

CHANLO 

27 

150 

AWGN 

43 

170 

CHANL2 

28 

151 

BIOEXP 

24 

i4i 

CHANL3 

32 

155 

CHANLl 

17 

120 

CHANL4 

33 

157 

ERFC 

44 

171 

CIRF 

26 

145 

FFT 

39 

168 

ERFC 

44 

171 

FI LAMP 

18 

128 

FFT 

39 

168 

LENGTH 

41 

169 

LENGTH 

41 

169 

MEASRl 

19 

132 

MEASR2 

35 

160 

PIRFl 

25 

144 

PIRF2 

38 

167 

PREPRC 

40 

169 

PREPRC 

40 

169 

RANDOM 

45 

171 

RANDOM 

45 

171 

READER 

20 

137 

READER 

36 

164 

RHO 

42 

RESORT 

29 

153 

SIMPSN 

46 

172 

RHO 

42 

170 

TAUGDl 

21 

139 

SIMPSN 

46 

172 

WRITER 

22 

141 

TAUGD2 

34 

158 

TAUPSD 

30 

154 

W I TWER 

31 

154 

WRITER 

37 

166 
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Table  16.  ACIRF  Fortran  code 


PROGRAM  ACIRF 
PARAMETER  {VERS0N=3 . 51 ) 

C 

C»*»»*»**********,,»*»  VERSION  3.51  *»*  24  APR  1991  *************************** 

C 

C  THIS  PROGRAM  GENERATES  REALIZATIONS  OF  THE  CHANNEL  IMPULSE  RESPON 

C  FUNCTION  AT  THE  OUTPUTS  OF  MULTIPLE  ANTENNAS.  TEMPORAL  VARIATION 

C  OF  THE  IMPULSE  RESPONSE  FUNCTIONS  ARE  OBTAINED  USING  THE  GENERAL  MODEL. 

C 

C  THIS  ROUTINE  WAS  DESIGNED  AND  WRITTEN  AND  IS  MAINTAINED  BY: 

C  ROGER  A.  DANA 

C  MISSION  RESEARCH  CORPORATION 

C  735  STATE  STREET 

C  P.O.  DRAWER  719 

C  SANTA  BARBARA,  CALIFORNIA  93102 

C  (805)963-8761  EXT.  212 

C 

C  TESTING,  BITS  OF  CODE,  AND  BLESSINGS  BY 

C  LEON  A.  WITTWER 

C  DEFENSE  NUCLEAR  AGENCY 

C  ATMOSPHERIC  EFFECTS  DIVISION 

C  WASHINGTON,  DC  20305 

C  (202)325-7028 

C 

C. SET  ARRAY  S^ZES  ************************************** 
C 

C  MTENNA  =  MAXIMUM  NUMBER  OF  ANTENNAS 

C  MDELAY  =  MAXIMUM  NUMBER  OF  DELAY  SAMPLES 

C  MKX  =  MAXIMUM  NUMBER  OF  KX  SAMPLES 

C  MKY  =  MAXIMUM  NUMBER  OF  KY  SAMPLES 

C  MTIMES  =  MAXIMUM  NUMBER  OF  TIME  SAMPLES 

MAXBUF  =  MAXIMUM  NUMBER  OF  WORDS  IN  A  BUFFER 
MAXIMUM  RECORD  SIZE  =  MAXBUF  +  1 

INCLUDE  'ACIRF. SIZ' 


INPUT  DATA  ************************************** 

CHANNEL  PARAMETERS 

FO  =  FREQUENCY  SELECTIVE  BANDWIDTH  (HZ) 

TAUO  =  DECORRELATION  TIME  (SECONDS) 

DLX  =  X-DIRECTION  DECORRELATION  DISTANCE  (METERS) 

DLY  =  Y-DIRECTION  DECORRELATION  DISTANCE  (METERS) 

CXT  =  TIME-X  CROSS  CORRELATION  COEFFICIENT 

CYT  =  TIME-Y  CROSS  CORRELATION  COEFFICIENT 

ANTENNA  PARAMETERS 

NUMANT  =  NUMBER  OF  ANTENNAS  (MUST  BE  >=1  AND  <=  MTENNA) 

FREQC  =  CARRIER  FREQUENCY  (HZ) 

C  FOR  EACH  ANTENNA: 

C 
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Table  16.  ACIRF  Fortran  code  (Continued) 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


BWV  =  3  DB  ANTENNA  BEAMWIDTH  ABOUT  V-AXIS  (DEGREES) 

BWU  =  3  DB  ANTENNA  BEAMWIDTH  ABOUT  U-AXIS  (DEGREES) 

UPOS  =  U  POSITION  OF  ANTENNA  CENTER  (M) 

VPOS  =  V  POSITION  OF  ANTENNA  CENTER  (M) 

ROT  =  ROTATION  ANGLE  BETWEEN  X-AXIS  AND  U-AXIS  (DEGREES) 

ELV  =  ELEVATION  POINTING  ANGLE  MEASURED  FROM  LINE-OF-SIGHT  (DEGREES) 

AZM  =  AZIMUTH  POINTING  ANGLE  MEASURED  FROM  U-AXIS  (DEGREES) 

NOTES;  BEAMWIDTHS  ARE  FULL  WIDTH  AT  HALF  MAXIMUM 
ANGLES  DEFINED  BY  THE  FOLLOWING: 

X  cross  U  =  LOS  SIN (RAD (ROT) ) 

X  dot  U  =  COS (RAD (ROT) ) 

LOS  cross  X  =  Y 
LOS  cross  U  =  V 
PNT  dot  LOS  =  COS (RAD (ELV) ) 

P  =  PNT  -  LOS  (  PNT  dot  LOS  ) 

U  cross  P  -  LOS  SIN (RAD (AZM) ) 

P  dot  U  =  COS (RAD (AZM) ) 

WHERE 

X,Y,  LOS  ARE  UNIT  VECTORS  IN  A  RIGHT  HANDED  CARTESIAN 
COORDINATE  SYSTEM  IN  WHICH  THE  PROPAGATION  PARAMETERS 
ARE  DEFINED, 

U,V,  LOS  ARE  UNIT  VECTORS  IN  A  RIGHT  HANDED  CARTESIAN 
COORDINATE  SYSTEM  IN  WHICH  THE  ANTENNA  PARAMETERS  ARE 
DEFINED, 

LOS  IS  A  UNIT  VECTOR  PARALLEL  TO  THE  PROPAGATION  LINE  OF 
SIGHT 

PNT  IS  A  UNIT  VECTOR  POINTING  IN  THE  ANTENNA  BORE  SIGHT 
DIRECTION 

REALIZATION  PARAMETERS 

KASE  =  KASE  NUMBER  OF  REALIZATION 

IDENT  =  ALPHANUMERIC  IDENTIFIER  FOR  REALIZATION 

DELTAU  =  DELAY  SAMPLE  SIZE  (SEC) 

NDELAY  =  NUMBER  OF  DELAY  SAMPLES 

NKX  =  NUMBER  OF  KX  SAMPLES 

NKY  =  NUMBER  OF  KY  SAMPLES 

NTIMES  =  NUMBER  OF  TIME  SAMPLES 

IJSEED  =  INITIAL  RANDOM  NUMBER  SEED 

NO  =  NUMBER  OF  SAMPLES  PER  DECORRELATION  TIME 

NOTES:  CASE  NUMBER  FOR  IDENTIFICATION  ONLY 

IDENT  MUST  BE  <=  80  CHARACTERS 
NDELAY  MUST  BE  <=  MDELAY 

NKX  DEFAULT  =  32  (MUST  BE  >=  32  AND  <=  MKX) 

NKY  DEFAULT  =  32  (MUST  BE  >=  32  AND  <=  MKY) 

NTIMES  DEFAULT  =  1024 

IJSEED  DEFAULT  =  9771975 

NO  DEFAULT  =10  (MUST  BE  >=  10) 

******************************************************************************* 

CHARACTER  NAME* 9 , I DENT*80 
LOGICAL  STOPER 

COMMON/ANTENA/NUMANT, XPOS (MTENNA) , YPOS (MTENNA) 
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Table  16.  ACIRF  Fortran  code  (Continued) 


COMMON /ANTNUM/ lANT 
COMMON/CHANEL/ DLX, DLY, FO.CXT, CYT 

COMMON /ENSMBL/CROSS (MTENNA, MTENNA) , PA (MTENNA) , SLOSDB (MTENNA) , 

1  FA (MTENNA) , TAUA (MTENNA) 

COMMON /PROF I L/ BEAM 1 (MTENNA) , BEAM2 (MTENNA) , BEAMS (MTENNA) , 

1  PNTAKX (MTENNA) , PNTAKY (MTENNA) 

COMMON/GRDSIZ/DELTAU, DELTKX, DELTKY, TAUODF 
COMMON/HEADER/RDATAl (NDATAl ) , RDATA2 (MTENNA, NDATA2) 

COMMON/INOUT  /IREAD, IWRITE, lOFILE 
COMMON/INTGRL/NTASUB 

COMMON/POWERS/G (MDELAY , MTENNA) , GRDPOW (3, MTENNA) 
COMMON/POWIRF/CPIRF(5,MTENNA) , GO (MTENNA) 

COMMON/RANSED/ISEED, JSEED 

COMMON/REALZN/NKX, NKY, NDELAY, NTIMES, NO, NFMAX 
COMPLEX  CROSS 

DIMENSION  BWU (MTENNA) , BWV (MTENNA) , UPOS (MTENNA) , VPOS (MTENNA) , 

1  ROT (MTENNA) , ANGLSS (MTENNA) , ANTVCX (MTENNA) , ANTVCY (MTENNA) , 

2  DETQ (MTENNA)  , AZM  (MTENNA)  , ELV (MTENNA) , 

3  QXX (MTENNA) , QYY (MTENNA) , QXY (MTENNA) , TRCQ (MTENNA) 

PARAMETER  (PI =3. 1 4 1592 654 , TWOP 1=2 . 0*PI ) 

PARAMETER  (SMALL=1 . OE-10) 

DATA  STOPER/ .TRUE. / 

RAD(X)  =  PI*X/180.0 

******  SET  CONSTANTS  AND  FIXED  PARAMETERS 

NTASUB  =100 
INPUT  =  1 
IREAD  =  2 
IWRITE  =  3 
lOFILE  =  11 

A*****************************************'***'*********'***'********************** 

OPEN (UNIT=IREAD  , FI LE= ■ ACI RF . DAT ’ , STATUS= ' OLD ’ ) 

OPEN  (UNIT=IWRITE, FI LE=' ACIRF .OUT’ , STATUS=’NEW’ ) 

CALL  PREPRC (IREAD, INPUT) 

CLOSE (UNIT=IREAD) 

******  READ  INPUT  DATA  AND  SET  DEFAULT  VALUES 

CASE  NUMBER  AND  IDENTIFICATION 

READ  (input, * ) KASE, STOPER 
IDENT  =  '  ' 

READ (INPUT, * ) IDENT 
MDENT  =  LENGTH (IDENT) 

CHANNEL  PARAMETERS 
C 

READ (INPUT, *)F0,TAU0,DLX,DLY,CXT,CYT 
IF  (..A?*  *2  +  CYT‘ *2  .GT.  0.9998)THEN 
WRITE  (  * ,  4000) 

4000  FORMAT  (2X,  '  ******  INPUT  ERROR  ****»*•) 

WRITE(*, 4020)CXT,CYT 
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Table  16.  ACIRF  Fortran  code  (Continued). 


4020  FORMAT (2X, 'CXT** 2  +  CYT**2  MUST  BE  <=  0 . 9998 ' , /2X, IP , 

1  ’CXT  =  ’,E12.4,'  CYT  =  •,E12.4) 

STOP  '  ACIRF  EXECUTION  TERMINATED* 

END  IF 
C 

C  ANTENNA  PARAMETERS 
C 

READ (INPUT, *)NUMANT,FREQC 
CLAMDA  =  2 . 997925E8/FREQC 
C 

C  THE  NUMBER  OF  ANTENNAS  MUST  BE  >=  1  AND  <=  MTENNA 
C 

IF (NUMANT  . LT .  1  . OR .  NUMANT  . GT .  MTENNA) THEN 
WRITE (*, 4000) 

WRITE (*, 4030) NUMANT, MTENNA 

4030  FORMAT (2 X, 'NUMANT  MOST  BE  >-  1  AND  <=  MTENNA’, /2X, 

1  'NUMANT  =  ', I10/2X, ' MTENNA  =  ’,110) 

STOP  '  ACIRF  EXECUTION  TERMINATED' 

END  IF 
C 

C  READ  ANTENNA  BEAMWIDTHS,  POSITIONS,  AND  POINTING  ANGLES 
DO  5  IANT=1. NUMANT 

READ (INPUT, *)BWU (lANT)  ,BWV(IANT) , UPOS(IANT)  ,  VPOS (lANT) , 

1  ROT(IANT) ,ELV(IANT) ,AZM(IANT) 

5  CONTINUE 
C 

C  REALIZATION  PARAMETERS 
C 

NKX  =  32 

NKY  =  32 

NO  -  10 

NTIMES  =  1024 
IJSEED  =  9771975 

READ (INPUT, * ) NDELAl , DELTAU, NTIMES, NKX, NKY, IJSEED, NO 
CLOSE (UNIT=INPUT, STATUS=' DELETE' ) 

JSEED  =  lAND (IJSEED, 65535) 

ISEED  =  lAND  (ISHFT  (I JSEED, -16) , 65535) 

C 

C  THERE  MUST  BE  AT  LEAST  10  SAMPLES  PER  DECORRELATION  DISTANCE  OR  TIME 
C 

IF  (NO  .LT.  10) THEN 
WRITE (‘, 4000) 

WRITE(*, 4040)N0 

4040  FORMAT (2X, 'NO  MUST  BE  >=  10',/2X,'N0  =  ',110) 

IF (STOPER) STOP  ’  ACIRF  EXECUTION  TERMINATED' 

END  IF 
C 

C  THERE  MUST  BE  AT  LEAST  100  DECORRELATION  TIMES  IN  EACH  REALIZATION 
C 

NTMIN  =  100*N0 
IF (NTIMES  .LT.  NTMIN) THEN 
WRITE  ( * , 4000) 

WRITE (* , 4050) NTIMES, NTMIN, MTIMES 
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Table  16.  ACIRF  Fortran  code  (Continued) 


4050  FORMAT (2X, 'THERE  MUST  BE  AT  LEAST  100  DECORRELATION  TIMES 

1  'IN  EACH  REALIZATION' , /2X, 'NTIMES  =  •,I10/2X, 

2  'REQUIRED  NTIMES  =  ', I 10/2X, ' MAXIMUM  NTIMES  =  ',110) 
STOP  '  ACIRF  EXECUTION  TERMINATED' 

END  IF 

NDELAY  MUST  BE  >=  1  AND  <=  MDELAY 

IF{NDELAY  . LT .  1  .OR.  NDELAY  . GT .  MDELAY) THEN 
WRITE(*, 4000) 

WRITE ( * , 4060) NDELAY, MDELAY 

4060  FORMAT (2X, 'NDELAY  MUST  BE  >=  1  AND  <=  MDELAY', /2X, 

1  'NDELAY  =  ', I10/2X, ' MDELAY  =  ’,110) 

STOP  '  ACIRF  EXECUTION  TERMINATED' 

END  IF 

NTIMES  MUST  BE  >=1  AND  <=  MTIMES 

IF (NTIMES  .LT.  1  .OR.  NTIMES  . GT .  MTIMES)THEN 
WRITE (*, 4000) 

WRITE(‘, 4010) NTIMES, MTIMES 

4070  FORMAT (2X, 'NTIMES  MUST  BE  >=  1  AND  <=  MTIMES’, /2X, 

1  'NTIMES  -  ', I10/2X, 'MTIMES  =  ',110) 

STOP  '  ACIRF  EXECUTION  TERMINATED’ 

END  IF 

NKX  MUST  BE  >=  32  AND  <=  MKX 

IF(NKX  .LT.  32  .OR.  NKX  .GT.  MKX) THEN 
WRITE(*, 4000) 

WBITE(*, 4080)NKX,MKX 

4080  FORMAT (2X, 'NKX  MUST  BE  >=  32  AND  <»  MKX’,/2X, 

1  'NKX  -  ' , I10/2X, 'MKX  =  ’,110) 

STOP  '  ACIRF  EXECUTION  TERMINATED' 

END  IF 
C 

C  NKY  MUST  BE  >=  32  AND  <=  MKY 
C 

IF (NKY  .LT.  32  .OR.  NKY  .GT.  MKY) THEN 
WRITE(‘, 4000) 

WRITE(‘, 4090)NKY,MKY 

4090  FORMAT (2 X, 'NKY  MUST  BE  >=  32  AND  <=  MKY’,/2X, 

1  'NKY  =  ' , I10/2X, 'MKY  =  ',110) 

STOP  '  ACIRF  EXECUTION  TERMINATED' 

END  IF 
C 

C******  CALCULATE  ENSEMBLE  CHANNEL  PARAMETERS  OUT  OF  ANTENNAS 
C 

WAVNUM  =  TWOPI/CLAMDA 

DETDL  =  (DLX*DLY/4 .0) **2 

TRCDL2  =  (DLX**4  +  DLY**4)/16.0 

TOMIN  =  1.0E30 

TOMAX  =0.0 

FMAX  =0.0 
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Table  16.  ACIRF  Fortran  code  (Continued) 


DO  10  IANT=1 , NUMANT 

RSIN  =  SIN (RAD (ROT (lANT) )  ) 

RCOS  =  COS (RAD (ROT (lANT) ) ) 

C 

C  ANTENNA  BEAM  PROFILE  PARAMETERS 
C 

THETOU  =  RAD (BWU (lANT) ) 

THETOV  =  RAD (BWV(IANT) ) 

ALFAU  =  ALOG(2. 0) * (CLAMDA/ (PI*THETOU) ) **2 
ALFAV  =  ALOG (2 . 0) * (CLAMDA/ (PI»THETOV) ) **2 
BEAMl(IANT)  =  ALFAU ‘RCOS' *2  +  ALFAV*RSIN**2 
BEAM2(IANT)  =  ALFA0*RSIN**2  +  ALFAV*RCOS* *2 
BEAMS (lANT)  =  2.0* (ALFAU  -  ALFAV) *RSIN»RCOS 

SCATTERING  LOSS 

QXX(IANT)  =  DLX’*2/4.0  +  BEAMl (lANT) 

QYYdANT)  =  DLY*  *2/4.0  +  BEAM2  (lANT) 

QXY(IANT)  =  BEAMS (lANT) /2. 0 

DETQ(IANT)  =  QXX (lANT) *QYY  (lANT)  -  QXY(IANT)**2 
TRCQ(IANT)  =  QXX(IANT)  +  QYY(IANT) 

PANGVU  =  WAVNUM*SIN (RAD (ELV(IANT) ) ) *COS(RAD(AZM(IANT) ) ) 
PANGW  =  WAVNUM*SIN (RAD (ELV(IANT) ) ) *SIN (RAD (AZM(IANT) ) ) 
PNTAKX(IANT)  =  PANGVU*RCOS  -  PANGVV*RSIN 
PNTAKY(IANT)  =  PANGVU*RSIN  +  PANGW*RCOS 
ANTVCX(IANT)  =  RCOS* ALFAU* PANGVU  -  RSIN* ALFAV* PANGW 
ANTVCY(IANT)  =  RSIN*ALFAU*PANGVU  +  RCOS*ALFAV*PANGW 
ANGLSS(IANT)  =  (QYY ( lANT) *ANTVCX ( lANT) *  *  2  - 

1  2.0*QXY(IANT)  *ANTVCX(IANT) ‘ANTVCYdANT)  + 

2  QXX (lANT) *ANTVCY (lANT) **2) /DETQ(IANT) 

ARG  =  BEAMl (lANT) *PNTAKX (lANT) **2  + 

1  BEAM2 (lANT) *PNTAKY (lANT) **2  + 

2  BEAMS (lANT) *PNTAKX (lANT) *PNTAKY ( lANT) 

GO(IANT)  =  EXP(-ARG) 

PA(IANT)  =  SQRT (DETDL/DETQ (lANT) ) *EXP (ANGLSS (lANT) ) * 

1  GOdANT) 

IF(PAdANT)  .LE.  SMALL)THEN 

WRITE  (*, 4125) lANT, PA  (I ANT) 

4125  FORMAT (2X,  '  **********  WARNING  **********' /2X , 

1  'SCATTERING  LOSS  OF  ANTENNA  ’,12,'  EXCEEDS  100  DB ' 

2  'RECEIVED  POWER  =  ’ , IPEIO . S/2X, 

S  'ACIRF  MAY  NOT  BE  ABLE  TO  HANDLE  THIS  CASE') 

END  IF 

SLOSDBdANT)  =  -  1 0 . 0  *ALOGl  0  (PA  (lANT)  ) 

GRDPOW (3, lANT)  =  PA(IANT) 

C 

C  FREQUENCY  SELECTIVE  BANDWIDTH 
C 

ANTVEC  =  SQRT (ANTVCX (lANT) **2  +  ANTVCY (lANT) **2) 

FAdANT)  =  FO*SQRT  {TRCDL2) /DETDL/SQRT  (4 . 0*ANGLSS  (lANT)  * 

1  ( (TRCQ  (lANT) /DETQ(IANT) ) **2  -  1 . 0/DETQ ( I ANT) )  + 

2  (TRCQ (lANT) * *2  -  4 . 0*TRCQ ( lANT) ‘ANTVEC* *2) 

3  /DETQ(IANT) * *2  -  2 . 0/DETQ ( lANT) ) 

C 

C  DECORRELATION  TIME 
C 
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Table  16.  ACIRF  Fortran  code  (Continued) 


DX  =  CXT*DLX 
DY  =  CYT»DLY 

TAUA(IANT)  =  TAU0*SQRT (DETQ(IANT) / (DETQ(IANT) * 

1  (1.0-CXT**2-CYT»*2)+ (QYY(IANT) *DX* *2+QXX (lANT) * 

2  DY**2) /4 .0-DX*DY*QXY (I ANT) /2.0)  ) 

IF {TAUA(IANT)  . LT .  T0MIN)T0MIN  =  TAUA(IANT) 

IF (TAUA(IANT)  . GT .  T0MAX)T0MAX  =  TAUA(IANT) 

C 

C  MEAN  DOPPLER  FREQUENCY  AND  MAXIMUM  REQUIRED  DOPPLER  FREQUENCY 
C 

DOPLER  =  (  (ANTVCY (lANT)  *QXX (lANT) *DY  + 

1  ANTVCX (lANT) *QYY (lANT) *DX  - 

2  (ANTVCX (lANT) ‘DY+ANTVCY ( lANT) *DX) »QXY(IANT) ) / 

3  DETQ(IANT) ) / (TWOPI*TAUO) 

DOPMAX  =  ABS (DOPLER)  +  2 . 4 612/ (PI*TAUA (lANT) ) 

FMAX=AMAX1 (FMAX, DOPMAX) 

C 

C  POWER  IMPULSE  RESPONSE  FUNCTION  PARAMETERS 
C 

CPIRFd,  lANT)  =  TRCQ  (lANT)  *SQRT(TRCDL2/2 .0) /DETDL/2 . 0 
CPIRF  (2,  lANT)  =  SQRT(TRCDL2*ABS(TRCQ(IANT) **2  - 
1  4 . 0*DETQ (lANT) ) /2. 0) /DETDL/2. 0 

CPIRF (3, lANT)  =  2 . 0*ANTVEC* (TRCDL2/2.0) ** (0. 25) / 

1  SQRT(DETDL) 

IF(ANTVEC  .NE.  0.0)  THEN 

CPIRF (4, lANT)  =  2. 0»ARCTAN (ANTVCY (lANT) , ANTVCX (lANT) ) 
1  -  ARCTAN(2.0»QXY(IANT) , (QXX(IANT)-QYY(IANT)) )  +PI 

ELSE 

CPIRF  (4, lANT)  =  -ARCTAN(2.0*QXY(IANT) ,QXX(IANT)  - 
1  QYY (lANT) )  +  PI 

END  IF 

CPIRF  (5,  lANT)  =  SQRT  (TRCDL2/2.0/DETDL) 

10  CONTINUE 

ANTENNA  CENTER  POSITIONS  IN  X-Y  COORDINATE  SYSTEM 
C 

XMAX  =  -1 . 0E30 
YMAX  =  -1.0E30 
XMIN  =0.0 
YMIN  =0.0 
DO  20  IANT=1 , NUMANT 

RSIN  =  SIN  (RAD (ROT (lANT)  )  ) 

RCOS  =  COS (RAD (ROT (I ANT)  )  ) 

XPOS(IANT)  =  UPOS(IANT) *RCOS  -  VPOS ( lANT) *RSIN 
YPOS(IANT)  =  UPOS (lANT) *RSIN  +  VPOS ( lANT) *RCOS 
XMAX  =  AMAXl (XMAX, XPOS (lANT) ) 

XMIN  =  AMIMl (XMIN, XPOS (lANT) ) 

YMAX  =  AMAXl (YMAX, YPOS (I ANT) ) 

YMIN  =  AMINl (YMIN, YPOS (lANT) ) 

20  CONTINUE 
C 

C  ANTENNA  OUTPUT  VOLTAGE  CROSS  CORRELATION 
C 

IF (NUMANT  .GT.  1 ) THEN 
DO  40  IANT=1 , NUMANT 


114 


Table  16.  ACIRF  Fortran  code  (Continued) 


DO  30  JANT=IANT, NUMANT 

DX  =  XPOS(IANT)  -  XPOS(JANT) 

DY  =  YPOS(IANT)  -  YPOS ( JANT) 

QXXMN  =  (QXX(IANT)  +  QXX (JANT) ) /2 . 0 
QXYMN  =  (QXY(IANT)  +  QXY ( JANT) ) /2 . 0 
QYYMN  -  (QYY(IANT)  +  QYY ( JANT) ) /2 . 0 
DETQMN  =  QXXMN ‘QYYMN  -  QXYMN* *2 
ANVXMN  =  (ANTVCX (lANT)  +  ANTVCX ( JANT) ) /2 . 0 
ANVYMN  =  (ANTVCY (lANT)  +  ANTVCY ( JANT) ) /2 . 0 
ANTARG  =  (QYYMN*ANVXMN“2  -  2 . 0»QXYMN*ANVXMN 
1  ‘ANVYMN  +  QXXMN‘ANVYMN“ 2) /DETQMN 

ARG  =  (QYYMN‘DX“2  -  2 . 0‘QXYMN‘DX‘DY 
1  +  QXXMN‘DY“2) /DETQMN/4.0 

PHASE  =  (ANVXMN* (QXYMN‘DY  -  QYYMN‘DX) 

1  +  ANVYMN* (QXYMN ‘DX  -  QXXMN * DY) ) /DETQMN 

CROSS (JANT, lANT)  = 

1  SQRT (SQRT (DETQ(IANT) *DETQ(JANT) ) ) /SQRT (DETQMN) * 

2  EXP (ANTARG- (ANGLSS (lANT) +ANGLSS (JANT) ) /2 .0) * 

3  CEXP (CMP LX ( -ARG, PHASE) ) 

CROSS (I ANT, JANT)  =  CROSS (JANT, I ANT) 

30  CONTINUE 

40  CONTINUE 

END  IF 
C 

C  FIND  LIMITS  ON  ANGULAR  GRID  TO  ENCOMPASS  99.9  PERCENT  OF  ENERGY 
C 

PTXMAX  =0.0 
PTYMAX  =0.0 
DO  50  IANT=I , NUMANT 

AKXMAX  =  ABS ( (ANTVCX (lANT) *QYY (lANT)  - 

1  ANTVCY (lANT) *QXY (lANT) ) / 

2  DETQdANT))  +  2  .  5895‘SQRT  (QYY  (lANT) /DETQ  (lANT)  ) 

IF (AKXMAX  .GT.  PTXMAX) PTXMAX  -  AKXMAX 

AKYMAX  =  ABS ( (ANTVCY (lANT) *QXX (lANT)  - 

1  ANTVCX  (lANT)  *QXY  (lANT) ) / 

2  DETQdANT)  )  +  2 . 5895  *SQRT  (QXX  ( lANT) /DETQ  ( I  ANT)  ) 

IF (AKYMAX  -GT.  PTYMAX) PTYMAX  =  AKYMAX 

50  CONTINUE 
C 

C******  CALCULATE  GRID  SIZES  AND  CHECK  FOR  CONSISTENCY 
C 

C  DELTA  TIME  GRID  SIZE 
C 

DELTAT  =  TOMIN/NO 

IF (NTIMES'DELTAT  . LT .  1 00 . 0*T0MAX) THEN 
WRITE(*, 4130) 

4130  FORMAT  (2X,  ’  “**“  GRID  SIZE  ERROR  ******■) 

NTMIN  =  INTdOO.  0*T0MAX/DELTAT)  +  1 
WRITE  (  *,  41 40) NTIMES, NTMIN, MTIMES 
4140  FORMAT  (2X,  'THERE  ARE  NOT  100  DECORRELATION  TIMES  IN  ', 

1  'REALIZATION  OF  ANTENNA  WITH  LARGEST  TAUA'/2X, 

2  'INCREASE  NTIMES ' /2X, 'NTIMES  =  ',I10/2X, 

3  'REQUIRED  NTIMES  =  ', 1 1 0 / 2X,  ' MAXIMUM  NTIMES  =  ',110) 

IF (STOPER) STOP  '  ACIRF  EXECUTION  TERMINATED' 

END  IF 

TAUODF  =  TAUO/ (NTIMES'DELTAT) 
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NFMAX  =  INT (FMAX*NTIMES*TOMIN/NO)  +  1 

NFREQ  =  2* NFMAX 

IF (NFMAX  .GT.  NTIMES/2 ) THEN 

JJ  =  INT (FLOAT (2*NFMAX*N0) /FLOAT {NTIMES))+1 
WRITE(», 4150) JJ 

4150  FORMAT (2X,  '  ***»•  TOO  FEW  TIMES  PER  TAOO  *****',/, 

1  4X, ■ NO  MUST  BE  >=  ' , 15) 

STOP  •  ACIRF  EXECUTION  TERMINATED’ 

END  IF 

DELTA  KX'GRID  SIZE 

EXTREM  =  ABS (XMAX-XMIN) 

ALIAS  =  P I /AMAXl (EXTREM, SMALL) 

DELTKX  =  2 . 0*PTXMAX/ (NKX-1 ) 

DELTAKX  TOO  LARGE  -  POSSIBLE  ALIASING  OF  OUTPUTS  OF  ANTENNAS 

IF (DELTKX  .GT.  ALIAS)THEN 

NKXMIN  =  2 . O'PTXMAX/ALIAS 
WRITEC,  4130) 

WRITE (* , 41 70) NKX, NKXMIN, MKX 

4170  FORMAT  (2X,  'NKX  TOO  SMALL  -  ALIASING  OF  ANTENNA  OUTPUTS’ 

1  /2X,  'NKX  ■=  ’,  I10/2X,  ’REQUIRED  NKX  =  ’,I10/2X, 

2  'MAXIMUM  ALLOWED  NKX  =  ’.110) 

IF  (STOPER) STOP  ’  ACIRF  EXECUTION  TERMINATED’ 

END  IF 

DELTA  KY  GRID  SIZE 

EXTREM  *  ABS (YMAX-YMIN) 

ALIAS  -  PI/AMAXl (EXTREM, SMALL) 

DELTKY  “  2 . 0*PTYMAX/ (NKY-1 ) 

DELTAKY  TOO  LARGE  -  POSSIBLE  ALIASING  OF  OUTPUTS  OF  ANTENNAS 

IF  (DELTKY  . GT .  ALIAS)THEN 

NKYMIN  =  2 . 0*PTYMAX/ALIAS 
WRITEC,  4130) 

WRITE  (  * ,  4180) NKY, NKYMIN, MKY 

4180  FORMAT(2X, ’NKY  TOO  SMALL  -  ALIASING  OF  ANTENNA  OUTPUTS’ 

1  /2X,  ’NKY  =  ’, I  10/2X,  ’ REQUIRED  NKY  =  ’,I10/2X, 

2  'MAXIMUM  ALLOWED  NKY  -  ',110) 

IF (STOPER) STOP  '  ACIRF  EXECUTION  TERMINATED' 

END  IF 

CHECK  DELAY  GRID  SIZE 
CALL  TAUGDl (NDRQD) 

******  PRINT  INPUT  DATA  AND  ENSEMBLE  CHANNEL  PARAMETERS 
C 

WRITE ( I WRITE, 2000) VERSON, KASE 

2000  FORMAT  (2X,  'ACIRF  CHANNEL  SIMULATION  VERSION  ’,F6.2/4X, 

1  'CASE  NUMBER  ',110) 
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WRITE (IWBITE, 2001) 

2001  FORMAT (4X,  'TEMPORAL  VARIATION  FROM  GENERAL  MODEL') 

WRITE (IWRITE, 2009)  IDENT (1 :MDENT) 

2009  FORMAT (4 X, 'REALIZATION  IDENTIFICATION: *, /4X, A) 
WRITE(IWRITE,2010)F0,TAO0,DLX,DLY,CXT,CYT 

2010  FORMAT (/2X,  'CHANNEL  PARAMETERS /4X, 

1  'FREQUENCY  SELECTIVE  BANDWIDTH  (HZ)  =  ' , IPEIO . 3/4X, 

2  'DECORRELATION  TIME  (SEC)  =  •,E10.3/4X, 

3  'X  DECORRELATION  DISTANCE  (M)  =  •,E10.3/4X, 

4  'Y  DECORRELATION  DISTANCE  (M)  =  •,E10.3/4X, 

5  'TIME-X  CORRELATION  COEFFICIENT  =  ',E10.3/4X, 

6  'TIME-Y  CORRELATION  COEFFICIENT  =  ’,E10.3) 

WRITE (IWRITE, 2020) NDELAY , DELTAU, NTIMES, NFREQ, NO, NKX, NKY, IJSEED 
2020  FORMAT (/2X, 'REALIZATION  PARAMETERS ', /4X, 

1  'NUMBER  OF  DELAY  SAMPLES  =  •,I10/4X, 

2  'DELAY  SAMPLE  SIZE  (SEC)  =  ' , IPElO . 3/4X, 

3  'NUMBER  OF  TEMPORAL  SAMPLES  =  •,I10/4X, 

4  'NUMBER  OF  DOPPLER  FREQUENCY  SAMPLES  =  •,I10/4X, 

5  'NUMBER  OF  TEMPORAL  SAMPLES  PER  TAUO  =  ’,I10/4X, 

6  'NUMBER  OF  KX  SAMPLES  =  •,I10/4X, 

7  'NUMBER  OF  KY  SAMPLES  =  •,I10/4X, 

8  'INITIAL  RANDOM  NUMBER  SEED  =  ’,112) 

IF(NDRQD  .LT.  NDELAY) WRITE (IWRITE, 2025) NDRQD 

2025  FORMAT (/2X,  '*********  ■  WARNING  »*****»**«• /2X, 

1  'ONLY  ',14,'  DELAv  uINS  ARE  REQUIRED ' /2X, 

2  '»**»***«***»  ******* t <***«***• ) 

WRITE  (IWRITE,  "'O'!  ■  NUMANT,FREQC 
2040  FORMAT(/2X,'  .r  ,NNA  PARAMETERS ', /4X, 

1  'NUMBER  C;  antennas  =  ',I10/4X, 

2  'CARRIFa  FREQUENCY  (HZ)  =  ',1PE10.3) 

WRITE  r. '.RITE,  2045) 

2045  FORMAT {/2X, 'ANTENNA  BEAMWIDTHS,  ROTATION  ANGLES', 

1  ’  AND  POINTING  ANGLES ',/ /4X, 

2  N' , 3X, 'BWU (DEG) ' , 3X, ' BWV (DEG) ' , 3X, 'ROT (DEG) ' , 

3  3X, 'ELV(DEG) ' , 3X, ' AZM(DEG) ' ) 

DO  70  IANT=1 , NUMANT 

WRITE (IWRITE, 2050) I ANT , BWU ( I ANT) , BWV (I ANT) , ROT (I ANT)  , 

1  ELV(IANT) , AZM(IANT) 

2050  FORMAT (3X, 12, 5  (IX, FIO. 3) ) 

70  CONTINUE 

WRITE(IWRITE,2055) 

2055  FORMAT  (/2X,  'ANTENNA  POSITIONS  IN  U-V  AND  X-Y  COORDINATES', 

1  //4X,'N',4X, 'UPOS (M) ' , 4X, ' VPOS (M) ' , 4X, 

2  'XPOS (M) ' , 4X, ' YPOS (M) ' ) 

DO  75  IANT=1 , NUMANT 

WRITEdWRITE,  2057)  I  ANT ,  UPOS  ( lANT )  ,VPOS(IANT)  , 

1  XPOS (lANT) , YPOS (lANT) 

2057  FORMAT (3X, 12, 4 (IX, 1PE10.3) ) 

75  CONTINUE 

WRITE (IWRITE, 2060) 

2060  FORMAT (/2X, 'ENSEMBLE  CHANNEL  PARAMETERS  AT  ANTENNA  OUTPUTS' 

1  //4X,'N',3X, 'LOSS (DB) ' , 6X, 'POWER' , 5X, 'FA (HZ) ' , 2X, 

2  'TAUA(SEC)  '  ) 

DO  80  IANT=1 , NUMANT 
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WRITE (IWRITE, 2065) lANT, SLOSDB (lANT) , GRDPOW (3, lANT) , 
1  EA(IANT) ,TAUA(IANT) 

2065  FORMAT (3X,I2,1X,E10.3,1X,F10.6,2(1X,  IPEIO. 3) ) 

80  CONTINUE 
C 

c******  OPEN  BINARY  FILES  FOR  REALIZATIONS 
C 

DO  100  II=1,NDATA1 

RDATAl  (II)  =  0.0 
100  CONTINUE 

DO  110  II=1,MTENNA 

DO  105  IJ=1,NDATA2 

RDATA2  (II, IJ)  =  0.0 
105  CONTINUE 

110  CONTINUE 

RDATAl (  1 )  =  2.0 

RDATAl (  2)  =  KASE 

RDATAl (  3)  =  FREQC 

RDATAl (  4)  =  TAUO 

RDATAl  (  5)  =  FO 

RDATAl (  6)  =  DLX 

RDATAl (  7)  =  DLY 

RDATAl  (  9)  =■  1.0 

RDATAl (13)  =  NTIMES'DELTAT 

RDATAl (14)  =  NTIMES 

RDATAl (15)  =  DELTAT 

RDATAl  (16)  =  NO 

RDATAl (20)  =  NDELAY 

RDATAl (21)  =  DELTAU/2.0 

RDATAl (22)  =  DELTAU 

RDATAl (23)  =  ISEED 

RDATAl  (24)  =  JSEED 

RDATAl (25)  =  MAXBUF 

RDATAl (26)  =  CXT 

RDATAl (27)  =  CYT 

RDATAl  (28)  =  VERSON 

DO  120  IANT=1, NUMANT 


RDATA2 (lANT, 

1) 

= 

KASE 

RDATA2 (lANT, 

2) 

= 

1 . 0 

RDATA2  (I  ANT, 

3) 

= 

TAUA (lANT) 

RDATA2 ( lANT, 

4) 

FA (lANT) 

RDATA2 (I ANT, 

5) 

- 

DLX 

RDATA2 (lANT, 

6) 

= 

DLY 

RDATA2  (lANT, 

7) 

NDELAY 

RDATA2  (lANT, 

8) 

= 

DELTAU 

RDATA2 (I ANT, 

9) 

NTIMES 

RDATA2  (lANT,  10) 

= 

NKX 

RDATA2  ( lANT,  1 1 ) 

= 

NKY 

RDATA2 (lANT, 12) 

= 

IJSEED 

RDATA2 (lANT, 13) 

= 

ISEED 

RDATA2 (lANT, 14) 

JSEED 

RDATA2  (I ANT, 

15) 

NO 

RDATA2  (lANT, 

16) 

CXT 

RDATA2  (I ANT, 

17) 

CYT 

RDATA2  ( lANT, 

18) 

VERSON 

Table  16.  ACIRF  Fortran  code  (Continued) 


r.DATA2  (lANT,  21)  =  NUMANT 
RDATA2  (lANT, 22)  =  FREQC 
RDATA2 (lANT, 23)  =  lANT 
RDATA2 (lANT, 24)  =  BWU(IANT) 

RDATA2  (lANT, 25)  =  BWV(IANT) 

RDATA2 (lANT, 26)  =ROT(IANT) 

RDATA2 (lANT, 27)  =  UPOS(IANT) 

RDATA2 (lANT, 28)  =VPOS(IANT) 

RDATA2 (lANT, 29)  -ELV(IANT) 

RDATA2 (lANT, 30)  =  AZM(IANT) 

RDATA2  (lANT, 31 )  =  PA(IANT) 

RDATA2 (lANT, 32)  =  SLOSDB(IANT) 

C 

C  OPEN  BINARY  FILES  -  ONE  FOR  EACH  ANTENNA 
C 

lUNIT  =  lANT  -  1  +  lOFILE 
NAME  =  ' ACIRF. AN' //CHAR(48+IANT) 

OPEN (UNIT=IUNIT, FILE=NAME, STATUS='NEW’ , FORM= ' UNFORMATTED ' ) 
WRITE  (lUNIT)  MDENT, IDENT  (1 :MDENT) 

WRITE(IUNIT)  NDATAl,  (RDATA 1  ( 1 1 ) ,  1 1  =  1 , NDATAl ) 

WRITE (lUNIT)  NDATA2,  {RDATA2 ( lANT, 1 1 ) , 1 1  =  1 , NDATA2 ) 

120  CONTINUE 
C 

C******  CHANNEL  SIMULATOR 
C 

CALL  CHANLl 
C 

C**.**.  measure  IMPULSE  RESPONSE  FUNCTION  STATISTICS 
C 

CALL  MEASRl 

IJSEED  =  lOR  (ISHFT  (ISEED,  16)  , JSEED) 

WRITE (IWRITE, 2100) IJSEED 

2100  FORMAT (/2X, ' FINAL  RANDOM  NUMBER  SEED  =  ',112) 

CLOSE (UNIT=IWRITE) 

STOP  '  ACIRF  COMPLETED' 

END 
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SUBROUTINE  CHANLl 

C 

C.  »  VERSION  3.3  ***  08  JAN  1990  ***************************** 

THIS  SUBROUTINE  CALCULATES  IMPULSE  RESPONSE  FUNCTION  FOR  WITTWER'S  GENERAL 
C  MODEL  WHICH  INCLUDES  TIME-SPACE  CORRELATION 

C 

C**********************  SET  ARRAY  SIZES  ************************************** 

C 

INCLUDE  ’ACIRF.SIZ' 

C 

Q»*»»«»*»*»»**»**»**»*«*******»»*««*»*****»»»*********************************** 

C 

LOGICAL  RESET 

COMMON/ANTENA/NUMANT, XPOS (MTENNA) , YPOS (MTENNA) 

COMMON/ANTNUM/ I ANT 
COMMON/CHANEL/DLX, DLY, FO, CXT,CYT 
COMMON/GRDSIZ/DELTAU, DELTKX, DELTKY , TAUODF 

COMMON/KXYPWR/CUMDKX, CUMDKY, COSTH, SINTH, DELTKM, DELTKN, DLM, DLN, 

1  MIDX.MIDY, AKMMAX, AKNMAX 

COMMON/IMPULS/HA (MTIMES, MCELAY) , HB (MTIMES) , HC (MDELAY) 

COMMON/INOUT/IREAD, IWRITE, lOFILE 

COMMON/PROFIL/BEAMl (MTENNA) , BEAM2 (MTENNA) , BEAM3 (MTENNA) , 

1  PNTAKX  (MTENNA)  , PNTAKY (MTENNA) 

COMMON /POWERS/G (MDELAY, MTENNA) , GRDPOW ( 3 , MTENNA) 

COMMON/RANSED/ ISEED, JSEED 

COMMON/REALZN/NKX, NKY, NDELAY , NTIMES,  NO.NFMAX 
COMPLEX  AWGN, HK (MKY, MKX) , HA, HB, HC, YPHSR (MKY) 

COMPLEX  PHSR,DPHSR 

DIMENSION  AMP (MKY, MKX) , JDEL (MKY, MKX) 

DIMENSION  RDUMl  (NDATAl ) , RDUM2 (NDATA2) , DAKY (MKY) 

CHARACTER  IDENT*80 

PARAMETER  (PI=3 . 1 4 1 592 654 , TWOP 1=2 . 0*PI ) 

PARAMETER  (SMALL=1 . OE- 1 0 ) 

EQUIVALENCE  (HK  ( 1 , I )  , HA ( 1 , 1 ) ) 

C 

C******  PRECOMPUTE  COEFFICIENTS  OF  GENERALIZED  POWER  SPECTRUM 
C 

AKANGL  =  SQRT(DLX**4*DLY‘*4/ (8.0* (DLY**4  +  DLX**4)))/ 

1  (TWOPI*FO*DELTAU) 

MIDX  =  NKX/2  *  1 
MIDY  =  NKY/2  +  1 
DO  10  IANT=1 , NUMANT 

GRDPOW (1, I ANT)  =0.0 
10  CONTINUE 
C 

CALCULATE  AMPLITUDES  FOR  ANGULAR  GRID  AT  ZERO  FREQUENCY 

C  CALCULATE  ANGULAR  ENERGY  IN  DIAGONALIZED  KM-KN  COORDINATE  SYSTEM 
C  STRICTLY  A  BRUTE  FORCE  APPROACH  FOR  ASSIGNING  ENERGY  TO  THE 
C  KX  KY  GRID  FROM  THE  DIAGONAL  KM-KN  GRID 
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c 

C  ROTATION  ANGLE  FROM  KX-XY  TO  KM-KN 
C 

BOT  =  DLX*  (1 . 0-CYT**2) /DLY-DLY* (1 . 0-CXT**2) /DLX 
IF(ABS(BOT)  .GT.  1.0E-07)THEN 

THETA  =  0. 5*ATAN (2 . 0*CXT*CYT/BOT) 

ELSE 

THETA  =  PI/4 .0 
END  IF 

COSTH  =  COS (THETA) 

SINTH  =  SIN (THETA) 

C 

C  KM-KN  DECORRELATION  DISTANCES,  CORRELATION  COEFFICIENTS,  AND  GRID  SIZES 
C 

DLM  =  I . 0/SQRT ( (COSTH/DLX) **2+ (SINIH/DLY) **2) 

DLN  =  1 . 0/SQRT ( (SINTK/DLX) **2+ (COSTH/DLY) **2) 

CMT  =  DLM* (CXT*CC3TH/DLX+CYT*SINTH/DLY) 

CNT  =  DLN*  (CYT*COSTH/DLY-CXT*SINTH/DLX) 

DELTRM  =  0 . 099/SQRT ( (COSTH/DELTKX) **2+ (SINTH/DELTKY) **2) 

DELTKN  =  0 . 099/SQRT ( (SINTH/DELTKX) **2+ (COSTH/DELTKY) **2) 

DLM  =  DLM/SQRT (I . 0-CMT**2) 

DLN  =  DLN/SQRT (1 . 0-CNT**2) 

KM-KN  GRID  LIMITS  -  CONTAIN  99.9  PERCENT  OF  ENERGY  IN  ANGULAR-DOPPLER  GRID 

AKMMAX  =  5 . 1790/DLM 
AKNMAX  =  5.1790/DLN 

******  CALCULATE  KX-KY  ANGULAR  GRID  AMPLITUDE  =  SQRT (ENERGY) 

ZERO  'UmULATIVE  DOPPLER  KX-KY  OFFSETS 

CU.4DKX  =  0.0 
CJMDKY  =0.0 

AMPLITUDE  ARRAY  AT  ZERO  DOPPLER  FREQUENCY 

CALL  FILAMP (AMP, I, NKX, 1, NKY) 

C 

C******  START  LOOP  OVER  POSITIVE  DOPPLER  FREQUENCIES 

C  ADD  POWER  OF  ZERO  DOPPLER  FREQUENCY  BIN  TO  ADJACENT  +  AND  -  BINS 

C 

PITOFl  =  0.0 
DO  120  NF=2,NFMAX 
C 

C  START  WITH  POSITIVE  FREQUENCY 
C 

PIT0F2  =  PI*TAU0DF* (FLOAT(NF) -0.5) 

AMPDOP  =  SQRT(0.5* (ERFC(PIT0Fl)-ERFC(PIT0r2) ) ) 

PITOFl  =  PIT0F2 
C 

C  FIND  DOPPLER  KX-KY  OFFSETS 

C  IF  OIFSET  IS  LARGER  THAN  KX-KY  GRID  CELL,  THEN  OFFSET 
C  AMP(KX,KY)  ARRAY  AND  FILL  IN  NEW  VALUES 

c 
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AKXDIS  =  CXT«TWOPI*TAUODF* (NF-1) /DLX  -  CUMDKX 
J  =  INT (AKXDIS/DELTKX) 

IF(J  .NE.  0)THEN 
C 

C  OFFSET  AMPLITUDE  ARRAY  IN  POSITIVE  KX  DIRECTION 
C 

IF(J  .GT.  0)THEN 
KEND  =  NKX  -  J 
MM  =  KEND  +  I 
DO  25  KK=I,KEND 
MM  =  MM  -  I 
JJ  =  MM  +  J 
DO  20  LL=I,NKY 

AMP(LL,JJ)  =  AMP(LL,MM) 

20  CONTINUE 

25  CONTINUE 

KSTRT  =  I 
KEND  =  J 
END  IF 

OFFSET  AMPLITUDE  ARRAY  IN  NEGATIVE  KX  DIRECTION 

IF(J  .LT.  0)THEN 
KEND  =  NKX  +  J 
DO  35  KK=1,KEND 
MM  =  KK  -  J 
DO  30  LL=l,NKy 

AMP(LL,KK)  =AMP(LL,MM) 

30  CONTINUE 

35  CONTINUE 

KSTRT  =  NKX  +  J  +  1 
KEND  =  NKX 
END  IF 

AKX  =  J*DELTKX 
CUMDKX  =  CUMDKX  +  AKX 
AKXDIS  =  AKXDIS  -  AKX 
C 

C  FILL  IN  NEW  KX  AMPLITUDES 
C 

CALL  FILAMP (AMP, KSTRT, KEND, I , NKY) 

END  IF 

AKYDIS  =  CYT*TWOPI*TAUODF* (NF-1) /DLY  -  CUMDKY 
J  =  INT (AKYDIS/DELTKY) 

IF'J  .NE.  0)THEN 
C 

C  OFFSET  AMPLITUDE  ARFUY  IN  POSITIVE  KY  DIRECTION 
C 

IF(J  .GT.  0)THEN 
LEND  =  NKY  -  J 
MM  =  LEND  +  1 
DO  45  LL=1,LEND 
MM  =  MM  -  1 
JJ  =  MM  +  J 
DO  40  KK=I,NKX 

AMP(JJ,KK)  =  AMP(MM,KK) 

40  CONTINUE 
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CONTINUE 
LSTRT  =  1 
LEND  =  J 
END  IE 

LET  AMPLITUDE  ARRAY  IN  NEGATIVE  KY  DIRECTION 

IF(J  .LT.  0)THEN 
LEND  =  NKY  +  J 
DO  55  LL=1,LEND 
MM  =  LL  -  J 
DO  50  KK=1,NKX 

AMP(LL,KK)  =AMP(MM,KK) 

CONTINUE 
CONTINUE 

LSTRT  =  NKY  +  J  +  1 
LEND  =  NKY 
END  IE 

AKY  =  J*DELTKY 
CUMDKY  =  CUMDKY  +  AKY 
AKYDIS  =  AKYDIS  -  AKY 

FILL  IN  NEW  KY  AMPLITUDES 

CALL  FILAMP(AMP, 1 , NKX, LSTRT, LEND) 

END  IF 
C 

C  CALCULATION  FOR  POSITIVE  DOPPLER  FREQUENCY  THEN  CORRESPONDING 
C  NEGATIVE  DOPPLER  FREQUENCY 
C 

FSIGN  =1.0 
DO  no  ISIGN  =  1,2 
C 

C***..*  ASSIGN  KX-KY  GRID  CELLS  TO  DELAY  BINS  BASED  ON  DELAY-ANGLE 
C  DELTA  FUNCTION 

C 

AKM  =  (FLOAT a-MIDX) -0.5) *DELTKX  +  AKXDIS 
DO  65  KK=1,NKX 

AKN  =  (FLOAT (1-MIDY) -0,5) *DELTKY  +  AKYDIS 
DO  60  LL=1,NKY 

JDEL(LL,KK)  =  0 
IF (AMP (LL, KK)  .GT.  SMALL) THEN 
C 

C  RANDOMLY  WIGGLE  KX-KY  CELL  LOCATIONS  TO  INSURE  CORRECT 
C  AVERAGE  ENERGY  IN  DELAY  BINS 
C 

AKX  =  AKM  +  RANDOM ( ISEED, JSEED) *DELTKX 
AKY  =  AKN  +  RANDOM ( ISEED, JSEED) ‘DELTKY 
C 

C  RECORD  THE  DELAY  INDEX  FOR  EACH  KX-KY  CELL  AND  SET  RANDOM  FOURIER 
C  COEFFICIENT  IF  KX-KY  GRID  CELL  IS  WITHIN  DELAY  GRID 
C 

J  =  INT(AKANGL* (AKX**2  +  AKY* *2)) 

IF(J  .LT.  NDELAY)THEN 
JDEL(LL,KK)  =  J  +  1 


45 


C 

C  C.'" 
C 


50 

55 
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Table  17.  CHANLl  Fortran  code  (Continued) 


c 

C  SELECT  ANGULAR  SAMPLES  THAT  BELONG  TO  EACH  DELAY  BIN  AND  ACCUMULATE 
C  GRID  ENERGY 
C 

J  =  JDEL(LL,KK) 

IF(J  .GT.  0)THEN 

CGAIN  =  EXP (-0. 5* (DAKY (LL) * (DAKY (LL) * 

1  BMYY  +  AKXY)  +  AKXX) ) 

HC(J)  =  HC(J)  + 

1  HK (LL, KK) *PHSR*YPHSR (LL) *CGAIN 

AVEPOW  =  AVEPOW  +  (CGAIN*AMP (LL, KK) ) **2 
END  IF 

90  CONTINUE 

PHSR  =  PHSR*DPHSR 
95  CONTINUE 

C 

C  ACCUMULATE  KX-KY  GRID  POWER 
C 

GRDPOW (1 , lANT)  =  GRDPOW ( 1 , lANT)  +  AVEPOW*AMPDOP**2 
C 

C  WRITE  DELAY-DOPPLER  IMPULSE  RESPONSE  FUNCTIONS  INTO  BINARY  FILES 
C 

lUNIT  =  lANT  -  1  +  lOFILE 
WRITE(IUNIT)  (HC(J) , J=1,NDELAY) 

IF  (MOD  (NF, NO)  .EQ.  0  .AND.  ISIGN  .EQ.  2) THEN 
NUMFRQ  =  2*NF 
WRITE (*, 3000) NUMFRQ, lANT 

3000  FORMAT (2X, 'FREQ  ',15,'  FOR  ANTENNA  ’,12, 

1  '  COMPLETE') 

END  IF 
C 

C  GO  TO  NEXT  ANTENNA 
C 

100  CONTINUE 

FSIGN  =  -FSIGN 

DONE  WITH  POSITIVE  DOPPLER  FREQUENCY,  DO  CORRESPONDING  NEGATIVE  FREQUENCY 

110  CONTINUE 

C 

C  GO  TO  NEXT  POSITIVE  DOPPLER  FREQUENCY 
C 

120  CONTINUE 
C 

C  RESET  WRITER  SUBROUTINE 
C 

RESET  =  .TRUE. 

CALL  WRITER (RESET, NDELAY , NTIMES, lANT, lUNIT.HC) 

C 

C******  GENERATE  TIME  SEQUENCES  BY  PERFORMING  FAST  FOURIER  TRANSFORM 
C  FROM  DOPPLER  DOMAIN  TO  TIME  DOMAIN 

C 

IFFT  =  1 

NN  =  INT (ALOG (FLOAT (NTIMES) ) /ALOG(l . 999) ) 

LEND  =  1  +  NTIMES/2 
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Table  17.  CHANLl  Fortran  code  (Continued) 


LOOP  OVER  ANTENNAS 

DO  270  IANT-1, NUHANT 

lUNIT  -  lANT  -  1  +  lOFILE 
REWIND (I UN IT) 

READ  (lUNIT)  NDUMl , IDENT (1 :NDUM1) 

READ  (lUNIT)  NDUMl, (RDUMl (I) , I-l, NDUMl) 

READ  (lUNIT)  NDUM2,  (RDUM2  (I)  ,  I-=1,NDUM2) 

READ  DELAY-DOPPLER  IMPULSE  RESPONSE  FUNCTIONS 

POSITIVE  DOPPLER  FREQUENCY  SAMPLES  GO  INTO  BEGINNING  OF  ARRAY 
NEGATIVE  DOPPLER  FREQUENCY  SAMPLES  GO  INTO  END  OF  ARRAY 

JJ  -  NTIMES 
DO  210  NT-2, NFMAX 

READ  (I ON  IT)  (HA(NT, J)  , J-1,NDELAY) 

READ(IUNIT) (HA(JJ, J) , J=1,NDELAY) 

JJ  -  JJ  -  1 
210  CONTINUE 

ZERO  ELEMENTS  FOR  NON -CALCULATED  DOPPLER  FREQUENCIES 

LL  -  NFMAX  +  1 
DO  225  NT-LL,LEND 

DO  220  J-1  NDELAY 

KA(NT,J)  -  (0.0, 0.0) 

HA(JJ,J)  -  (0.0, 0.0) 

220  CONTINUE 

JJ  -  JJ-1 
225  CONTINUE 

PREPARE  FILE  TO  READ  IN  DELAY-TIME  IMPULSE  RESPONSE  FUNCTION 
REWIND (lUNIT) 

READ  (lUNIT)  NDUMl , IDENT (1 ; NDUMl) 

READ  (lUNIT)  NDUMl, (RDUMl (I) , I-l, NDUMl) 

READ  (lUNIT)  NDUM2, (RDUM2 (I) , I-1,NDUM2) 

DO  250  J-1, NDELAY 

DO  230  KK-2, NTIMES 

HB(KK)  -  HA(KK,J) 

230  CONTINUE 

ZERO  DC  FREQUENCY  TERM,  ENERGY  HAS  ALREADY  BEEN  DIVIDED  BETWEEN 
HC(2)  -  THE  SMALLEST  POSITIVE  FREQUENCY  AND 

HC (NTIMES)  -  THE  LARGEST  NEGATIVE  FREQUENCY 

HB(1)  -  (0.0, 0.0) 


USE  FFT  TO  CALCULATE  TIME  ARRAY  AT  GIVEN  DELAY  FOR  CURRENT  ANTENNA 

CALL  FFT (HB, NN, NTIMES, IFFT) 

DO  240  KK-1, NTIMES 

HA(KK,J)  -  HB(KK) 

240  CONTINUE 
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Table  17.  CHANLl  Fortran  code  (Continued) 


GO  TO  NEXT  DELAY 

>50  CONTINUE 

READ  TIME  SEQUENCE  INTO  FILE 

DO  265  KK-1,NTIMES 

DO  260  J-1,NDELAY 

HC(J)  =  HA(KK,J) 

260  CONTINUE 

CALL  WRITER(RESET, NDELAY , NTIMES, lANT, lUNIT.HC) 
265  CONTINUE 

WRITE(*, 3001) lANT 

3001  FORMAT (2X,  'ANTENNA  ’  ,  12,  '  COMPLETE') 

NEXT  ANTENNA 

270  CONTINUE 
RETURN 
END 
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Table  18.  FILAMP  Fortran  code 


SUBROUTINE  FILAMP (AMP, KSTRT, KEND, LSTRT, LEND) 

C 

C*********************  VERSION  1.3  ***  08  JAN  1990  **************************** 

C 

C  GENERATE  GPSD  AMPLITUDE  ON  KM-KN  GRID  AND  ASSIGN  TO  KX-XY  GRID  CELL 
C 

Q*  **********************************************  t  *  t  »  **************************  * 

c 

INCLUDE  ’ACIRF.SIZ’ 

PARAMETER  (SMALL-0.00001) 

COMMON/GRDSIZ/DELTAU, DELTKX, DELTKY.TAUODF 

COMMON /KXYPWR/CUMDKX.CUMDKY, COSTH, SINTH. DELTKM,  DELTKN, DLM, DLN, 

1  MIDX.MIDY, AKMMAX.AKNMAX 
DIMENSION  AMP(MKY,MKX) 

C 

C******  ZERO  AMPLITUDE  OF  NEW  GRID  CELLS 
C 

DO  15  KK-KSTRT,KEND 

DO  10  LL-LSTRT, LEND 
AMP(LL,KK)  -  0.0 
10  CONTINUE 

15  CONTINUE 
C 

C******  find  limits  of  KX-KY  region  ON  KM-KN  GRID 
C 


AKXl  - 

(FLOAT (KSTRT-MIDX) 

-  0.5) 

‘DELTKX 

-  CUMDKX 

AKX2  - 

(FLOAT (KEND-MIDX) 

+  0.5) 

‘DELTKX 

-  CUMDKX 

AKYl  - 

(FLOAT (LSTRT-MIDY) 

-  0.5) 

‘DELTKY 

-  CUMDKY 

AKY2  - 

(FLOAT (LEND-MIDY) 

+  0.5) 

‘DELTKY 

-  CUMDKY 

c 

C  CALCULATE  KM, KM  COORDINATES  OF  KX-KY  REGION 
C 

AKMl  -  AKXI»COSTH  +  AKYl ‘SINTH 
AKM2  -  AKXl ‘COSTH  +  AKY2 ‘SINTH 
AKM3  -  AKX2*COSTH  +  AKY2*SINTH 
AKM4  -  AKX2‘COSTH  +  AKYl ‘SINTH 
AKNl  -  AKYl ‘COSTH  -  AKXl ‘SINTH 
AKN2  -  AKY2‘COSTH  -  AKXl ‘SINTH 
AKN3  -  AKY2*COSTH  -  AKX2‘SINTH 
AKN4  -  AKY1‘C0STH  -  AKX2‘SINTH 
IF(AKM2  .LT.  AKMl) THEN 
C 

C  INSURE  THAT  AKMl  IS  THE  MINIMUM  KM  COORDINATE 
C  IF  AKM2  <  AKMl  THEN  RENAME  KM, KN  COORDINATES 
C 

AKM  -  AKMl 
AKN  -  AKNl 
AKMl  -  AKM2 
AKNl  -  AKN2 
AKM2  -  AKM3 
AKN2  -  AKN3 
AKM3  -  AKM4 
AKN3  -  AKN4 
AKM4  -  AKM 
AKN4  -  AKN 
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Table  18.  FILAMP  Fortran  code  (Continued) 


END  IF 
C 

IF  KX-KY  REGION  LIES  OUTSIDE  OF  THE  KM-KN  REGION  THAT  CONTAINS 
C  SIGNAL  ENERGY,  THEN  RETURN.  99.9  PERCENT  OF  SIGNAL  ENERGY  LIES 

C  WITHIN  THE  REGION  -KMMAX  TO  +KMMAX  AND  -KNMAX  TO  +KNMAX 

C 

IF(AKN2  .LT.  -AKNMAX  .OR.  AKN4  .GT.  AKNMAX) RETURN 
IF(AKM3  .LT.  -AKMMAX  .OR.  AKMl  .GT.  AKMMAX) RETURN 
C 

CALCULATE  LIMITS  ON  KM  AND  KN  IMPOSED  BY  KX-KY  REGION  AND  AKNMAX 
C  DRAW  A  LINE  ACROSS  THE  KM-KN  REGION  THAT  BEST  DESCRIBES  THE 

C  LOCATION,  IN  THE  KM-KN  PLANE,  OF  THE  SIGNAL  ENERGY  WITHIN 

C  THE  KX-KY  REGION.  LIMIT  END  POINTS  OF  LINE  TO  BE  WITHIN 

C  -KNMAX  TO  +KNMAX  (THE  KM  LIMITS  WILL  BE  IMPOSED  LATER) . 

C 

SMN  -  SMALL* DELTKN 
AKX2  -  AKM3 
AKY2  -  AKN3 

IF(AKN1  .LE.  AKNMAX  .AND.  AKNl  .GE.  -AKNMAX)THEN 
C 

C  CASE  1;  KNl  . LE .  KNMAX  AND  KNl  .GE.  -KNMAX 
|C 

AKXl  -  AKMl 
AKYl  -  AKNl 

IF(AKN3  .GT.  AKNMAX) THEN 
CASE  lA:  KN3  .GT.  KNMAX 

AKX2  »  AKM4  +  (AKNMAX-AKN4 ) • (AKM3-AKM4 ) / (AKN3-AKN4 ) 

AKY2  -  AKNMAX 

ELSE  IF(AKN3  .LT.  -AKNMAX) THEN 
CASE  IB;  KN3  . LT .  -KNMAX 

AKX2  -  AKM2  -  (AKNMAX+AKN2 ) • (AKM3-AKM2 ) / (AKN3-AKN2 ) 

AKY2  -  -AKNMAX 
END  IF 
ELSE 

CASE  2:  KNl  .GT.  KNMAX  .OR.  KNl  .LT.  -KNMAX 
IF  (AKNl  .GE.  (AKNMAX-SMN) )THEN 
CASE  2A:  KNl  . GE .  KNMAX 

AKXl  -AKMl  -  (AKNMAX-AKNl) * (AKM4-AKM1> / (AKN1-AKN4+SMN) 

AKYl  =  AKNMAX 

CASE  2A-1 :  KNl  . GT .  KNMAX  .AND.  KN3  .GT.  KNMAX 
IF(AKN3  .GT.  AKNMAX) THEN 

AKX2  -  AKM4  +  (AKNMAX-AKN4 ) • (AKM3-AKM4 ) / (AKN3-AKN4+SMN) 

AKY2  -  AKNMAX 
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Table  18.  FILAMP  Fortran  code  (Continued) 


ELSE  IF(AKN3  . LT .  -AKNMAX)THEN 
C 

C  CASE  2A-2:  KNl  . GT .  KNMAX  .AND.  KN3  .LT.  -KMMAX 
C 

AKX2  =  AKM2  -  (AKNMAX+AKN2 ) « (AKM3-AKM2 ) / (AKN3-AKN2 ) 

AKY2  =  -AKNMAX 
END  IF 
ELSE 
C 

C  CASE  2B:  KNl  . LT .  -KNMAX 
C 

AKXl  =  AKKl  -  (AKNMAX+AKNl) * (AKM2-AKM1) / (AKN2-AKN1+SMN) 

AKYl  =  -AKNMAX 
IF(AKN3  .LT.  -AKNMAX) THEN 
C 

CASE  2B-1:  KNl  . LT .  -KNMAX  .AND.  KN3  . LT .  -KNMAX 

AKX2  =  AKM3  -  (AKNMAX+AKN3) * (AKM2-AKM3) / (AKN2-AKN3+SMN) 
AKY2  =  -AKNMAX 

ELSE  IF(AKN3  . GT .  AKNMAX)THEN 

CASE  2B-2:  KNl  . LT .  -KNMAX  .AND.  KN3  . GT .  KNMAX 

AKX2  =  AKM4  +  (AKNMAX-AKN4 ) * (AKM3-AKM4 ) / (AKN3-AKN4 ) 

AKY2  =  AKNMAX 
END  IF 
END  IF 
END  IF 

*♦*•**  CALCULATE  ENERGY  ON  KM-KN  GRID  AND  ASSIGN  TO  KX-KY  GRID  CELLS 

DEFINE  STARTING  POINT  OF  LINE  AND  ITS  SLOPE 

SLOPE  =  (AKY2-AKY1) / (AKX2-AKX1) 

AKMO  =  AKXl 

RESET  END  POINTS  OF  LINE  IF  OUTSIDE  THE  LIMITS  -KMMAX  TO  +KMMAX 

IF (AKXl  .LT.  -AKMMAX)AKX1  =  -AKMMAX 
IF(AKX2  .GT.  AKMMAX) AKX2  =  AKMMAX 

CALCULATE  NO  OF  KM  CELLS  FROM  KM=0  TO  END  POINTS  OF  LINE  AND 
NO  OF  KN  CELLS  FROM  KN=0  TO  KNMAX 

KMMIN  =  INT (SIGN (ABS (AKXl/DELTKM)  +  0.5, AKXl)) 

KMMAX  =  INT (SIGN (ABS (AKX2/DELTKM)  +  0.5,AKX2)) 

IF (KMMAX  .LT.  KMMIN) RETURN 
KNMAX  =  INT  (0.5  +  AKNMAX/DELTKN) 

DEFINE  CONSTANTS  AND  CENTER  OF  KX-KY  REGION 
C 

AKXMID  =  (FLOAT (MIDX)  +  0.5)*DELTKX  +  CUMDKX 
AKYMID  =  (FLOAT(MIDY)  +  0.5)‘DELTKY  +  CUMDKY 
DLM2  =  DLM/2.0 
DLN2  =  DLN/2.0 
C 


no 


Table  18.  FILAMP  Fortran  code  (Continued). 


C******  LOOP  OVER  KM  FOLLOWING  LINE  FROM  (KX1,KY1)  TO  (KX2,KY2) 

C 

DO  40  KM=KMMIN, KMMAX 
AKM  =  KM»DELTKM 
AKMl  =  (AKM  -  0. 5*DELTKM) *DLM2 
AKM2  =  AKMl  +  DELTKM*DLM2 
EKM  “  0. 5* (ERFC (AKMl) -ERFC (AKM2) ) 

AKN  =  AKYl  +  (AKM-AKMO) ‘SLOPE 

KNLINE  =  INT (SIGN (ABS (AKN/DELTKN)  +  0.5, AKN)) 

C 

C******  LOOP  OVER  KN 
C 

C  START  AT  LINE.  FIRST  INCREASE  KN  VALUES  UNTIL  OUT  OF  KX-KY  REGION. 

C  RETURN  TO  LINE  AND  DECREASE  KN  VALUES  UNTIL  AGAIN  OUT  OF  KX-KY  REGION. 
C 

DO  30  IUPDN=1,2 


IFdUPDN  . 

EQ, 

.  DTHEN 

KNSTRT 

= 

KNLINE 

KNEND 

= 

KNMAX 

KNINC 

= 

+  1 

ELSE 

KNSTRT 

= 

KNLINE 

KNEND 

= 

-KNMAX 

KNINC 

- 

-1 

END  IF 

DO  20  KN=KNSTRT, KNEND, KNINC 
AKN  =  KN*DELTKN 

KK  =  INT ( (AKM*COSTH-AKN*SINTH+AKXMID) /DELTKX) 
LL  =  INT ( (AKM*SINTH+AKN*COSTH+AKYMID) /DELTKY) 
C 

C  TEST  IF  INSIDE  OF  KX-KY  REGION 
C 

IF (KK. LT.KSTRT  .OR.  KK.GT.KEND  .OR. 

1  LL.LT.LSTRT  .OR.  LL .GT . LEND) THEN 

IF(KN  .EQ.  KNLINE)GO  TO  20 
GO  TO  30 
END  IF 
C 

C  IF  IN  KX-KY  REGION,  ADD  SOME  ENERGY  TO  THE  (LL, KK)  CELL 
C 

AKNl  =  (AKN  -  0. 5*DELTKN) *DLN2 

AKN2  =  AKNl  +  DELTKN*DLN2 

EKN  =  0.5* (ERFC (AKNl)  -  ERFC(AKN2)) 

AMP(LL,KK)  =  AMP(LL,KK)  +  EKM*EKN 
20  CONTINUE 

30  CONTINUE 

40  CONTINUE 
C 

C  FINISH  OP  WITH  CALCULATION  OF  AMPLITUDE 
C 

DO  55  KK=KSTRT, KEND 

DO  50  LL=LSTRT, LEND 

AMP(LL,KK)  =  SORT (AMP (LL, KK) ) 

50  CONTINUE 

55  CONTINUE 
RETURN 
END 
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Table  19.  MEASRl  Fortran  code 


SUBROUTINE  MEASRl 
C 

C. .*..». »***»***.**.*»  VERSION  1.13  ***  25  APR  1991  *************************** 

C 

C  THIS  SUBROUTINE  MEASURES  AND  WRITES  THE  STATISTICS 

C  OF  THE  IMPULSE  RESPONSE  FUNCTION  REALIZATIONS  GENERATED  BY  ACIRF 

C 

C**. *******************  SET  ARRAY  SIZES  ************************************* 

C 

INCLUDE  'ACIRF. SIZ' 

C 

**.***********************************»*************************************** 

CHARACTER* 10  RHOAMP (MTENNA) , RHOPHS (MTENNA) 

CHARACTER* 80  I  DENT 
LOGICAL  RESET 

COMMON/ANTENA/NUMANT, XPOS (MTENNA) , YPOS (MTENNA) 

COMMON/ENSMBL/CROSS (MTENNA, MTENNA) , PA (MTENNA) , SLOSDB (MTENNA) , 

1  FA (MTENNA) , TAUA (MTENNA) 

COMMON/ I MPULS/HA (MTIMES, MDELAY) , HB (MTIMES) , HC (MDELAY) 

COMMON/INOUT  / IREAD, IWRITE, lOFI LE 
COMMON/POWERS/G (MDELAY, MTENNA) , GRDPOW (3, MTENNA) 

DIMENSION  AMPAVE (MDELAY+1, 4) ,S4 (MDELAY+1) , CHIBAR (MDELAY+ 1 , 2) 

DIMENSION  PO (MTENNA) , TEMP (MTENNA) 

DIMENSION  HEADER (NDATAl) 

COMPLEX  HA, HB, HC, HD, CROSS 

PARAMETER  (PI -3. 1 4 1 5 92 654 , TWOP 1=2 . 0*PI , EULER=0 . 57721 57 ) 

PARAMETER  (X 1N0RM= -EULER/2 . 0 , X2NORM=PI * *2/24 . 0+EULER* *2/4 . 0) 

DATA  RHOAMP/'  AMP(N-l)','  AMP(N-2)','  AMP (N-3) ' , ’  AMP(N-4)’, 

1  '  AMP(N-5)','  AMP(N-6)','  AMP(N-7)’,’  AMP(N-8)'/ 

DATA  RHOPHS/'  PHS(N-l)','  PHS(N-2)','  PHS(N-3)','  PHS(N-4)', 

1  '  PHS(N-5)','  PHS(N-6)','  PHS(N-7)','  PHS(N-8)'/ 

C 

C******  READ  REALIZATIONS  AND  COLLECT  STATISTICS 
C 

DO  100  IANT»1, NUMANT 
lUNIT  =  lANT  -  1  +  lOFILE 
WRITE (IWRITE, 2000) I ANT 

2000  FORMAT (IHl , IX, 'MEASURED  PARAMETERS  FOR  REALIZATION/', 

1  'ANTENNA  ',11) 

C 

C  READ  HEADER  RECORDS 
C 

REWIND  lUNIT 

READ (I UN IT)  MDENT, IDENT (1 :MIN0 (MDENT, 80) ) 

READ(IUNIT)  MDATAl,  (HEADER(II)  , 1 1  =  1 , MINO (MDATAl , NDATAl ) ) 

NTIMES  -  HEADER(14)  +  0.01 
DELTAT  =  HEADER (15) 

NO  =  HEADER  (16)  +0.01 

NDELAY  =  HEADER(20)  +  0.01 
JT  =  NDELAY  +  1 

TAUMIN  =  HEADER (21) 

DELTAU  =  HEADER (22) 

RESET  =  .TRUE. 

CALL  READER (RESET, NDELAY, NTIMES, lANT, IUNIT,HC) 
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Table  19.  MEASRl  Fortran  code  (Continued). 


c 

C  INITIALIZE  MEASUREMENTS 
C 

DO  20  J=l, JT 

CHIBAR(J,1)  =0.0 
CHIBAR(J,2)  =  0.0 
DO  10  M=I, 4 

AMPAVE(J,M)  =0.0 
10  CONTINUE 

20  CONTINUE 

AVENRG  =0.0 
AVETAU  =0.0 
SIGTAU  =0.0 
PO (lANT)  =0.0 
DO  40  KK=1,NTIMES 
C 

C  READ  IMPULSE  RESPONSE  FUNCTION 
C 

CALL  READER (RESET, NDELAY , NTIMES, lANT, IUNIT,HC) 
HA(KK,IANT1  =  (0.0, 0.0) 

HD  =  (0.0, 0.0) 

C 

C  COLLECT  STATISTICS  VERSUS  DELAY 
C 

DO  30  J=l, NDELAY 

AMP  =  CABS(HC(J) ) ‘DELTAU 
IF (AMP  .GT.  0.0) THEN 
POW  =  AMP**2 
HD  =  HD  +  HC(J) ‘DELTAU 

HA(KK,IANT)  =  HA(KK,IANT)  +  HC(J) ‘DELTAU 

AMPAVE(J,1)  =  AMPAVE(J,1)  +  AMP 

AMPAVE(J,2)  =  AMPAVE(J,2)  +  POW 

AMPAVE(J,3)  =  AMPAVE(J,3)  +  AMP“3 

AMPAVE(J,4)  =  AMPAVE(J,4)  +  POW“2 

AMP  =  ALOG(AMP) 

CHIBAR(J,1)  =  CHIBAR(J,1)  +  AMP 

CHIBAR(J,2)  =  CHIBAR(J,2)  +  AMP“2 

TAU  =  TAUMIN  +  (J-1) ‘DELTAU 
AVENRG  =  AVENRG  +  POW 

AVETAU  =  AVETAU  +  POW‘TAU 

SIGTAU  =  SIGTAU  +  POW‘TAU“2 

END  IF 

30  CONTINUE 

HB (KK)  =  HA(KK, lANT) 

PO(IANT)  =  PO(IANT)  +  CABS  (HA  (KK,  lANT)  )  “2 
AMP  =  CABS (HD) 

AMPAVE(JT,  1)  =  AMPAVE(JT,1)  +  AMP 

AMPAVE(JT,2)  =  AMPAVE(JT,2)  +  AMP“2 

AMPAVE(JT,3)  =  AMPAVE(JT,3)  +  AMP“3 

AMPAVE(JT,4)  =  AMPAVE(JT,4)  +  AMP“4 

AMP  =  ALOG(AMP) 

CHIBAR(JT, 1)  =  CHIBAR(JT,1)  +  AMP 

CHIBAR(JT,2)  =  CHIBAR(JT,2)  +  AMP“2 

40  CONTINUE 


Table  19.  MEASRl  Fortran  code  (Continued) 


c 

C»»»***  MEASURED  DECORRELATION  TIME 
C 

CALL  RHO (HB, NTIMES,XTAUO) 

TAUO  =  1.0E30 

IF(XTAU0  .GT.  0.0) TAUO  =  XTAUO*DELTAT 
C 

C******  MEASURED  MOMENTS  OF  AMPLITUDE  VERSUS  DELAY 
C 

DO  60  J=1,JT 

DO  50  M-1 , 4 

AMPAVE(J,M)  =  AMPAVE (J, M) /NTIMES 
50  CONTINUE 

CHIBAR(J,1)  =  CHIBAR  (J, 1) /NTIMES 
CHIBAR(J,2)  =  CHIBAR (J, 2) /NTIMES 
60  CONTINUE 

DO  70  J=1,NDELAY 
PJ  =  G ( J, lANT) 

IF (AMPAVE (J, 2) * *2  . GT .  0.0  .AND.  PJ**2  . GT .  0.0)THEN 

S4 (J)  =  (AMPAVE (J, 4) -AMPAVE (J, 2) »*2) /AMPAVE (J, 2) **2 

IF(S4(J)  .GT.  0.0)THEN 
S4  (J)  =  SORT  (S4  ( J)  ) 

ELSE 

S4 (J)  =0.0 
END  IF 

AMPAVE (J,l)  =  AMPAVE (J, 1) / (0.5*SQRT (PI) ) /SORT (PJ) 
AMPAVE(J,2)  =  AMPAVE  (J,  2) /I'J 

AMPAVE (J, 3)  =  AMPAVE (J, 3) / (0.75*SQRT (PI) ) /SORT (PJ) **3 
AMPAVE  (J, 4)  =  AMPAVE (J, 4) /2.0/PJ**2 
AMP  =0.5*ALOG{PJ) 

CHIBAR(J,2)  =  (CHIBAR (J, 2) -2.0*CHIBAR(J, 1) *AMP+AMP**2) / 
[  1  X2NORM 

*  CHIBAR (J,l)  =  (CHIBAR (J, 1) -AMP) /XINORM 

ELSE 

S4  (J)  =  0.0 
AMPAVE  (J, 1)  =0.0 
AMPAVE(J,2)  =  0.0 
AMPAVE  (J, 3)  =  0.0 
AMPAVE (J, 4)  =  0.0 
CHIBAR ( J, 1 )  =0.0 
CHIBAR(J,2)  =  0.0 
END  IF 
10  CONTINUE 

PT  =  GRDPOWd,  lANT) 

S4  (JT)  =  SORT  (  (AMPAVE (JT, 4 )  -AMPAVE (JT, 2)  **2) /AMPAVE (JT, 2) * *2) 
AMPAVE  (JT,1)  =  AMPAVE(JT,  1)  /  (0.5‘SQRT(PI) ) /SQRT(PT) 

AMPAVE  (JT, 2)  =  AMPAVE (JT, 2)  /PT 

AMPAVE(JT,3)  =  AMPAVE  ( JT,  3)  /  (0. 75*SQRT  (PI)  ) /SORT  (PT)  “3 
AMPAVE (JT, 4)  =  AMPAVE (JT, 4 ) /2. 0/PT‘*2 
AMP  =  0.5»ALnG(PT) 

CHIBAR (JT, 2)  =  (CHIBAR (JT, 3) -2 .0*CHIBAR(JT, 1) *AM?+AMP**2) / 

1  X2NORM 

CHIBAR  (JT,1)  =  (CHIBAR (JT,  1 )  -AMP) /XINORM 
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Table  19.  MEASRl  Fortran  code  (Continued) 


c 

c******  MEASURED  FREQUENCY  SELECTIVE  BANDWIDTH 
C 

AVETAU  =  AVETAU/AVENRG 

SIGTAU  =  SIGTAU/AVENRG  -  AVETAU* *2 

FOMEAS  =  1.0E30 

IF(SIGTAU  .GT.  0.0)F0MEAS  =  1 . 0/ (TWOPI *SQRT (SIGTAU) ) 

AVENRG  =  AVENRG/NTIMES 
PO(IANT)  =  PO (lANT) /NTIMES 
C 

C»*****  WRITE  MEASURED  SIGNAL  PARAMETERS  VERSUS  DELAY 
C 

WRITE (IWRITE, 2100) 

2100  FORMAT {/2X, ' MOMENTS  OF  VOLTAGE  AMPLITUDE  VERSUS  DELAY', /4X, 

1  'NORMALIZED  TO  ENSEMBLE  VALUES', /4X, 

2  'POW{J)  =  ENSEMBLE  POWER  IN  J-TH  DELAY  BIN',/4X, 

3  'J  =  T;  STATISTICS  OF  COMPOSITE  SIGNAL ', //4X , 

4  ' J' , SX, 'POW(J) ' , 5X, ‘<A>' , 3X, '<A"2>' , 3X, '<A^3>' , 3X, 

5  '<A^4>' , 6X, 'S4 ' , 3X, •<CHI>' , IX, '<CHI"2>' ) 

DO  80  J=1,NDELAY 

JJ  =  J  -  1 

WRITE (IWRITE, 2110) JJ,G(J, lANT) , (AMPAVE ( J, M) , M=1 , 4 ) , S4 ( J) , 

1  CHIBAR(J, 1) ,CHIBAR(J,2) 

2110  FORMAT (2X, 13, IX, IPEIO. 3, 7 (IX, 0PF7. 4) ) 

80  CONTINUE 

WRITE (IWRITE, 2111) GRDPOW (2, lANT) , (AMPAVE (JT, M) ,M=1, 4 ) , S4 (JT) , 

1  CHIBAR(JT, 1) ,CHIBAR(JT,2) 

2111  FORMAT  (4X,  'T',1X,1PE10.3,7(1X, 0PF7 . 4) ) 

C 

******  MEASURED  REALIZATION  PARAMETERS 
TOTLOS  =  -10.0*ALOG10(AVENRG) 

WRITE (IWRITE, 2 1 2 0 ) PA ( I ANT) , AVENRG, SLOSDB (lANT) , TOTLOS, FA (I ANT) , FOMEAS 

2120  FORMAT (/2X, ' REALIZATION  SIGNAL  PARAMETERS 12X, 

1  'ENSEMBLE' , 6X, 'MEASURED' //4X, 

2  'MEAN  POWER  OF  REALIZATION  =  '  ,  FIO  .  6,  4X,  FIO  .  6,'4X, 

3  'TOTAL  SCATTERING  LOSS  (DB)  =  ' , FIO . 3 , 4X, FI  0 . 3/ 4X, 

4  'FREQUENCY  SELECTIVE  BANDWIDTH  (HZ)  =  ' , IPElO . 3 , 4X , El 0 . 3) 

WRITEdWRITE,  2121)  TAUA  (lANT)  ,TAU0,  N0,XTAU0 

2121  FORMAT (4X, 

1  'DECORRELATION  TIME  (SEC)  =  ' , 1  PEI  0 . 3 , 4X, El  0 . 3/ 4X, 

2  'NUMBER  OF  SAMPLES  PER  DECORR.  TIME  =  ’ , 1 10 , 4X, OPFl 0 . 3) 

GRDLOS  =  10. 0*ALOG10  (GRDPOWO,  lANT) /GRDPOWd,  lANT)  ) 

WRITE ( IWRITE, 2130) GRDPOW (1 , lANT) , GRDLOS , GRDPOW ( 2 , I ANT) 

2130  FORMAT (/2X, ' MEAN  POWER  IN  GRID',//4X, 

1  'POWER  IN  KX-KY  GIRD  =  ',F10.6/4X, 

2  'POWER  LOSS  OF  GRID  (DB)  =  ',F10.3/4X, 

3  'POWER  IN  DELAY  GRID  =  •,F10.6) 

100  CONTINUE 

IF(NUMANT  .GT.  1 ) THEN 
C 

C*»**.*  antenna  OUTPUT  VOLTAGE  CROSS  CORRELATIONS  -  ENSEMBLE  VALUES 
C 
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Table  19.  MEASRl  Fortran  code  (Continued) 


WRITE (IWRITE, 2200) 

2200  FORMAT (IHl, IX, ’ENSEMBLE  ANTENNA  OUTPUT  CROSS  CORRELATION') 

WRITE ( IWRITE, 2210)  (RHOAMP (II) , II=1,NUMANT) 

2210  FORMAT (/4X, 'AMPLITUDE  OF  CROSS  CORRELATION’,// 

1  5X, ' N' , 2X, 8A10) 

DO  120  IANT=1 , NUMANT 

DO  110  JANT=1, NUMANT 

TEMP ( JANT)  =  CABS (CROSS ( lANT, JANT) ) 

110  CONTINUE 

WRITE (IWRITE, 2220) lANT, (TEMP (JANT) , JANT=1 , NUMANT ) 

2220  FORMAT  (4X, 12, 2X, 8F10. 6) 

120  CONTINUE 

WRITEdWRITE,  2230)  (RHOPHS(II)  ,  11  =  1, NUMANT) 

2230  FORMAT  (/-I  X,  '  PHASE  (RADIANS)  OF  CROSS  CORRELATION',// 

1  5X, ' N' , 2X, 8A10) 

DO  140  IANT=1, NUMANT 

DO  130  JANT=1 , NUMANT 
TEMP (JANT)  = 

1  ARCTAN (AIMAG (CROSS (lANT, JANT) ) , REAL (CROSS ( I ANT , JANT) ) ) 

130  CONTINUE 

WRITE (IWRITE, 2220) lANT, (TEMP (JANT) , JANT=1 , NUMANT) 

140  CONTINUE 

C 

C  ANTENNA  OUTPUT  VOLTAGE  CROSS  CORRELATIONS  -  MEASURED  VALUES 

C 

DO  170  JANT=1, NUMANT 

DO  160  KANT=JANT, NUMANT 

CROSS (JANT, KANT)  =  (0.0, 0.0) 

DO  150  KK=1,NTIMES 

CROSS (JANT, KANT)  =  CROSS (JANT, KANT)  + 

1  HA(KK, JANT) *CONJG(HA(KK,KANT) ) 

150  CONTINUE 

RHONOR  =  NTIMES*SQRT (PO (JANT) *P0 (KANT) ) 

CROSS (JANT, KANT)  =  CROSS (JANT, KANT) /RHONOR 
IF(KANT.GT. JANT) CROSS (KANT, JANT)  =  CROSS (JANT, KANT) 
160  CONTINUE 

170  CONTINUE 

WRITE (IWRITE, 2240) 

2240  FORMAT (//2X, 'MEASURED  ANTENNA  OUTPUT  CROSS  CORRELATION') 

WRITEdWRITE,  2210)  (RHOAMP  (II)  ,  11  =  1, NUMANT) 

DO  190  IANT=1 , NUMANT 

DO  180  JANT=1 , NUMANT 

TEMP (JANT)  =  CABS (CROSS (lANT, JANT) ) 

180  CONTINUE 

WRITE (IWRITE, 2220) lANT, (TEMP (JANT) , JANT=1 , NUMANT) 

190  CONTINUE 

WRITE  ( IWRITE, 2230)  (RHOPHS (I  I) , 1 1  =  1, NUMANT) 

DO  210  IANT=1, NUMANT 

DO  200  JANT=1, NUMANT 
TEMP (JANT)  = 

1  ARCTAN (AIMAG (CROSS (lANT, JANT) )  ,  REAL (CROSS (lANT, JANT) ) ) 

200  CONTINUE 

WRITE  (IWRITE, 2220) lANT,  (TEMP (JANT) , JANT=1 , NUMANT) 

210  CONTINUE 

END  IF 
RETURN 
END 
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c 

c 

c 
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Table  20.  READER  Fortran  code  -  ACIRF  version. 


SUBROUTINE  READER (RESET, NDELAY, NTIMES, NFILE, lUNIT, H) 

*********************  VERSION  1.5  ***  08  JAN  1990  **************************** 
*********************  ACIRF  VERSION  **************************** 

THIS  SUBROUTINE  READS  A  COMPLEX  ARRAY  FROM  A  FILE  ON  UNIT=IUNIT 
ONE  DELAY  ARRAY  IS  READ  FOR  EACH  CALL  WITH  RESET  =  -FALSE. 

THE  INITIAL  HEADER  RECORDS  ARE  READ  WITH  RESET  =  .TRUE. 

INPUTS  FROM  ARGUMENT  LIST: 

RESET  =  LOGICAL  FLAG 

NDELAY  =  NUMBER  OF  DELAY  SAMPLES  IN  IMPULSE  RESPONSE  FUNCTION 
=  DIMENSION  OF  H  ARRAY 

NTIMFS  =  NUMBER  OF  TIME  SAMPLES  IN  IMPULSE  RESPONSE  FUNCTION 
NFILE  =  FILE  NUMBER  (ONE  PER  ANTENNA) 
lUNIT  =  UNIT  OF  FILE 

OUTPUTS  TO  ARGUMENT  LIST; 

H  =  IMPULSE  RESPONSE  FUNCTION  ARRAY  (DIMENSION  NDELAY) 

COMMON  BLOCK  INPUTS: 

RDATAl  =  HEADER  RECORD 
PARAMETERS: 

MAXBUF  =  MAXIMUM  BUFFER  SIZE  (RECORD  SIZE  IN  FILE  =  MAXBUF  +  1) 

MTENNA  =  MAXIMUM  NUMBER  OF  ANTENNAS  (EQUAL  TO  THE  MAX  NUMBER  OF  FILES) 

NDATAl  =  SIZE  OF  HEADER  RECORD  1 

NDATA2  =  SIZE  OF  HEADER  RECORD  2 

♦  ★★★★★★★★*'1k******’***'*<l***'*r****lk**jk*******-*******jlr*ilr*****ikHr*********'*r********** 

SAVE 

INCLUDE  'ACIRF.SIZ' 

COMMON/HEADER/RDATAl (NDATAl) , RDATA2 (MTENNA, NDATA2 ) 

COMPLEX  H (NDELAY) , BUFFER (MAXBUF/2, MTENNA) 

DIMENSION  HEADER (NDATAl) , NUMBER (MTENNA) , DUMMY (NDATA2 ) 

LOGICAL  RESET 
CHARACTER* 80  I DENT 

******  IP-  reset  =  .TRUE.  READ  HEADER  RECORDS  AT  BEGINNING  OF  FILE 

IF (RESET) THEN 

REWIND  I UN IT 

READ (lUNIT)  MDENT, IDENT(1 :MIN0 (MDENT, 80) ) 

READ(IUNIT)  MDATAl, (HEADER (I I) , I 1=1 , MINO (MDATAl , NDATAl ) ) 

READ(IUNIT)  MDATAZ, (DUMMY  (I I ) , I 1=1 , MINO (MDATA2 , NDATA2 ) ) 

MDATAl  =  MINO (MDATAl , NDATAl) 

DO  10  NN=1, MDATAl 
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Table  20.  READER  Fortran  code  -  ACIRF  version  (Continued) 


c 

C  FATAL  ERROR  IF  HEADER  RECORD  DOES  NOT  AGREE  WITH  RDATAl 
C 

IF (HEADER (NN)  .NE.  RDATAl (NN) ) THEN 

WRITE (*, 4000)NN, HEADER (NN) ,NN, RDATAl (NN) 

4000  FORMAT (2 X, 'FATAL  ERROR  REREADING  HEADER  RECORD’, /2X, 

1  'WORD  ',12,'  OF  HEADER  RECORD  IS  ' , IPEl 2 . 5/2X, 

2  'WORD  ',12,'  OF  HEADER  RECORD  SHOULD  BE  ',E12.5) 

STOP  ’  READER  EXECUTION  TERMINATED' 

END  IF 

10  CONTINUE 

NTBUF  =  (MAXBUF/2) /NDELAY 
MAXCX  =  NTBUF* NDELAY 
DO  20  NN=1,MTENNA 
NUMBER (NN)  =  0 
20  CONTINUE 

RESET  =  .FALSE. 

RETURN 
END  IF 

NUMBER (NFILE)  =  NUMBER  (NFI LE )  +  1 
C 

C  COUNT  NUMBER  OF  CALLS  TO  PROGRAM 

C  FATAL  ERROR  IF  ATTEMPT  TO  READ  BEYOND  END-OF-FILE 
C 

IF (NUMBER (NFILE)  . GT .  NTIMES)THEN 

WRITE(*, 4001 ) NUMBER (NFILE) ,NTIMES 

4001  FORMAT (2X, 'ATTEMPT  TO  READ  BEYOND  END-OF-FILE’  /2X, 

1  'TIME  INDEX  =  ’,nO/2X,’MAX  INDEX  =  ',110) 

STOP  '  READER  EXECUTION  TERMINATED' 

END  IF 
C 

READ  DATA  INTO  A  BUFFER 

IF  (MOD (NUMBER (NFILE)  , NTBUF)  .EQ.  1 ) THEN 

READ(IUNIT)  MDATAl, (HEADER (NN) , NN=1 , MINO (MDATAI , NDATAl ) ) 
READ(IUNIT)  NRLWRD, 

1  (BUFFER (KK, NFILE) , KK=I , MINO (NRLWRD/2 , MAXBUF/ 2 ) ) 

MDATAl  =  MINO (MDATAl , NDATAl ) 

DO  30  NN=1, MDATAl 

FATAL  ERROR  IF  HEADER  RECORD  DOES  NOT  AGREE  WITH  RDATAl 

IF  (HEADER  (NN)  .NE.  RDATAl (NN) ) THEN 

WRITE (*, 4000) NN, HEADER  (NN)  , NN, RDATAl  (NN) 

STOP  '  READER  EXECUTION  TERMINATED’ 

END  IF 

30  CONTINUE 

END  IF 

READ  BUFFERED  DATA  INTO  ARRAY 
C 

JOFFST  =  MOD ( (NUMBER (NFILE) -1) ‘NDELAY, MAXCX) 

DO  40  JJ=1,NDELAY 

H(JJ)  =  BUFFER  (JOFFST+JJ, NFILE) 

40  CONTINUE 
RETURN 
END 


Table  21.  TAUGDl  Fortran  code, 


SUBROUTINE  TAUGDl (NDRQD) 

C 

C****************»«***  VERSION  1.5  ***  08  JAN  1990  **************************** 

C 

C  THIS  SUBROUTINE  COMPUTES  THE  ENERGY  IN  DELAY  GRID  CELLS  AND: 

C  STOPS  ACIRF  IF  THERE  ARE  TOO  FEW  DELAY  GRID  CELLS 
C  PRINTS  A  WARNING  IF  THERE  ARE  TOO  MANY  DELAY  GRID  CELLS 
C 

C**********************  SET  ARRAY  SIZES  ************************************* 

C 

INCLUDE  'ACIRF. SIZ' 

C 

c 

EXTERNAL  PlRFl 

COMMON /ANTENA/NUMANT, XPOS (MTENNA)  ,  YPOS (MTENNA) 

COMMON /ANTNUM/ lANT 
COMMON/CHANEL/DLX, DLY, F0,CXT,CYT 
COMMON/GRDSIZ/DELTAU, DELTKX, DELTKY, TAUODF 
COMMON / 1 NTGRL / NT AS  UB 

COMMON/REALZN/NKX, NKY, NDELAY, NTIMES, NO, NFMAX 
COMMON/POWERS/G (MDELAY , MTENNA) , GRDPOW (3, MTENNA) 

PARAMETER  (PI-3.141592654) 

PARAMETER  (SMALL-1 . OE-10 , BIG=5 . 0, RQD=0 . 975) 

LOGICAL  STOPER 
C 

\  Q*  *****************************  t  *  1,  t  *  *  i,  -Hi,  i,  t  *  *  t  t  *  *  *  t  **  *  *  ****************  -k  h  ******  * 

c 

c******  COMPUTE  ENERGY  IN  ANGULAR  DELAY  GRID 
C 

OMEGAC  =  2.0*PI*F0 
DO  20  IANT=1,NUMANT 

GRDPOW (2, I ANT)  =0.0 
20  CONTINUE 

DO  40  J=l, NDELAY 

TAUl  =  OMEGAC* (J-1) *DELTAU 
TAU2  =  TAUl  +  OMEGAC *DELTAU 
DO  30  IANT=1,NUMANT 

IF(TAU1  .LE.  SMALL  .AND.  TAU2  .GE.  BIG) THEN 
G(J,IANT)  =  GRDPOW (3, lANT) 

GRDPOW (2, I ANT)  =  GRDPOW (2, lANT)  +  G(J, lANT) 

GO  TO  30 
END  IF 

G(J, lANT)  =  SIMPSN(PIRF1,TAU1,TAU2,NTASUB) 

GRDPOW (2, lANT)  =  GRDPOW (2 , lANT)  +  G(J,IANT) 

30  CONTINUE 

40  CONTINUE 
C 

Q******  TEST  DELAY  GRID  FOR  TOO  LITTLE  ENERGY  OR  EXCESS  DELAYS 
C 

STOPER  =  .FALSE. 

TAUMAX  =  0.0 

NDRQD  =  0 

DO  80  IANT=1 , NUMANT 

EREQ  =  RQD*GRDPOW(3, lANT) 

IF (GRDPOW (2, I ANT)  . LT .  EREQ) THEN 
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Table  21.  TAUGDl  Fortran  code  (Continued). 


c 

C  NOT  ENOUGH  ENERGY  IN  GRID,  CALCULATE  REQUIRED  MAXIMUM  DELAY 
C 

STOPER  =  .TRUE. 

TAUI  -  0.0 

TAU2  =  OMEGAC*NDELAY*DELTAU 

MAXITR  =  I  +  ALOG(BIG/TAU2)/ALOG(l.l) 

ETAUI  =  SIMPSN(PIRF1,TAU1,TAU2,NDELAY*NTASUB) 

TAUI  =  TAU2 
DO  60  ITER=1, MAXITR 
TAU2  =  I.1*TAUI 

ETAU2  =  ETAUI  +  SIMPSN (PIRFl , TAUI , TAU2 , NTASUB) 
IF(ETAU2  .GE.  EREQ)GO  TO  65 
TAUI  =  TAU2 
ETAUI  =  ETAU2 
60  CONTINUE 

65  TAU2  =  TAUI  +  (EREQ-ETAUl ) * (TAU2-TAU1 ) / (ETAU2-ETAU1 ) 

TAUMAX  =  AMAXl (TAUMAX, TAU2) 

ELSE 

C 

C  ENOUGH  ENERGY,  SEE  IF  THERE  ARE  TOO  MANY  DELAY  BINS 
C 

ETAU2  =0.0 
DO  70  J=1,NDELAY 

ETAU2  =  ETAU2  +  G{J,IANT> 

IF(ETAU2  .GE.  EREQ)  GO  TO  75 
70  CONTINUE 

75  NDRQD  =  MAXO (NDRQD , J) 

END  IF 
80  CONTINUE 
C 

not  ENOUGH  ENERGY  IN  DELAY  GRID  -  STOP  ACIRF 
C 

IF (STOPER) THEN 

TAUINP  =  NDELAY*DELTAU 
TAURQD  =  TAUMAX/OMEGAC 
NDRQD  =  I.O  +  TAURQD/DELTAU 
WRITE(*, 4011) 

WRITE(‘,4012)TAUINP, TAURQD , NDELA Y , NDRQD 

4011  FORMAT (2X,  ■*** ‘**  DELAY  GRID  ERROR  ***•**•) 

4012  FORMAT (4X, ' INSUFFICIENT  DELAY  IN  DELAY  GRID'/4X, 

1  'INPUT  DELAY  =  ',1PE12.4,'  =  NDELAY*DELTAU ’ / 4X, 

2  'REQUIRED  DELAY  =  ',E12.4/4X, 

3  'INPUT  NDELAY  =  ',I12/4X, 

4  'REQUIRED  NDELAY  =  ',112,'  FOR  FIXED  DELTAU ' ) 

STOP  '  ACIRF  EXECUTION  TERMINATED' 

END  IF 
C 

C******  TOO  MANY  DELAY  BINS  -  PRINT  WARNING 
C 

IF(NDRQD  .LT.  NDELAY ) WRITE (*, 4 01 5) NDRQD 
4015  FORMAT(/2X,  '  ********“  WARNING  *********** /2X, 

1  'ONLY  ',14,'  DELAY  BINS  ARE  REQU IRED ' /2X , 

2  '»*♦»*♦•♦*♦»♦»**•*•*♦***«*********•) 

RETURN 

END 
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Table  22.  WRITER  Fortran  code  -  ACIRF  version. 


SUBROUTINE  WRITER (RESET, NDELAY, NTIMES, NFILE,  lUNIT,  H) 

C 

C******. **************  VERSION  1.3  ***  08  JAN  199C  **************************** 
|C*********************  ACIRF  VERSION  **************************** 

C 

C  THIS  SUBROUTINE  WRITES  A  COMPLEX  ARRAY  INTO  A  FILE  ON  UNIT=IUNIT 

C 

|C 

!c  INPUTS: 

C  RESET  =  LOGICAL  FLAG  -  INITIALIZATION  IF  RESET  -  .TRUE. 

C  H  =  COMPLEX* 8  ARRAY 

C  NDELAY  -  NUMBER  OF  DELAY  SAMPLES  IN  IMPULSE  RESPONSE  FUNCTION 

C  NTIMES  -  NUMBER  OF  TIME  SAMPLES  IN  IMPULSE  RESPONSE  FUNCTION 

C  NFILE  -  FILE  NUMBER 

C  lUNIT  =  UNIT  NUMBER  OF  FILE 
C 

C  COMMON  BLOCK  INPUTS: 

C 

C  RDATAl  =  HEADER  RECORD 
C 

C  PARAMETERS : 

C 

C  MAXBUF  -  MAXIMUM  BUFFER  SIZE  (RECORD  SIZE  IN  FILE  =  MAXBUF  +  1) 

C  MTENNA  =  MAXIMUM  NUMBER  OF  ANTENNAS  (EQUAL  TO  MAXIMUM  NUMBER  OF  FILES) 

C  NDATAl  =  SIZE  OF  HEADER  RECORD  1 

C  NDATA2  »  SIZE  OF  HEADER  RECORD  2 

C 

c 

SAVE 

INCLUDE  • ACIRF. SIZ’ 

LOGICAL  RESET 

COMMON/HEADER/RDATAl (NDATAl) , RDATA2 (MTENNA, NDATA2) 

COMPLEX  H (NDELAY) , BUFFER (MAXBUF/ 2, MTENNA) 

DIMENSION  NUMBER (MTENNA) 

C 

C******  IF  RESET  .EQ.  TRUE  THEN  INITIALIZE 
C 

IF  (RESET) THEN 

NTBUF  -  (MAXBUF/2) /NDELAY 
NCXWRD  -  NTBUF*NDELAY 
NRLWRD  -  2 ‘NCXWRD 
DO  10  NN-1, MTENNA 
NUMBER (NN)  =  0 
10  CONTINUE 

RESET  =  .FALSE. 

RETURN 
END  IF 

COUNT  NUMBER  OF  CALLS  -  ONE  PER  TIME  SAMPLE 
C 


Table  22.  WRITER  Fortran  code  -  ACIRF  version  (Continued). 


NUMBER (NFILE)  =  NUMBER (NFILE)  +  1 

JOFFST  =  MOD ( (NUMBER (NFILE) -1) *NDELAY, NCXWRD) 

C 

C  WRITE  DELAY  SAMPLES  INTO  BUFFER 
C 

DO  20  JJ=1,NDELAY 

BUFFER (JOFFST+JJ, NFILE)  =  H ( JJ) 

20  CONTINUE 

IRITER  =  MOD (NUMBER (NFILE) ,NTBUF) 

C 

C  WRITE  BUFFER  SAMPLES  INTO  FILE  WHEN  BUFFER  IS  FULL 
C 

IF (IRITER  .EQ.  0)THEN 

WRITE (lUNIT)  NDATAl,  (RDATAl (NN) , NN-1 , NDATAl) 

WRITE (lUNIT)  NRLWRD, (BUFFER (KK, NFILE) , KK=1 , NCXWRD) 
END  IF 
C 

C  WRITE  BUFFER  SAMPLES  INTO  FILE  WHEN  AT  END  OF  REALIZATION 
C 

IF (NUMBER (NFILE)  . EQ .  NTIMES  .AND.  IRITER  .NE.  0)THEN 
LFTCX  =  MOD (NTIMES, NTBUF) ‘NDELAY 
LFTRL  =  2* LFTCX 

WRITE(IUNIT)  NDATAl,  (RDATAl (NN) , NN=1 , NDATAl ) 

WRITE (lUNIT)  LFTRL, (BUFFER (KK, NFILE) , KK=1 , LFTCX) 
END  IF 
RETURN 
END 
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Table  23.  ARCTAN  Fortran  code 
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Table  25.  PIRFl  Fortran  code 


FUNCTION  PIRFl (TAU) 

C 

C»**»»********»*******  VERSION  2.4  ***  25  APR  1991  **************************** 

C 

C  THIS  FUNCTION  CALCULATES  THE  POWER  IMPULSE  RESPONSE  FUNCTION 
C  OF  THE  SIGNAL  AT  THE  ANTENNA  OUTPUT.  THE  CALCULATION  INCLUDES 
C  THE  EFFECTS  OF  NONZERO  POINTING  ANGLES. 

C  THE  BESSEL  FUNCTION  SERIES  IS  CALCULATED  BY  BACKWARD  RECURSION. 

C 

INCLUDE  'ACIRF.SIZ' 

C 

Q1rii1f*1t1rk**1t****it*1i***1ik1i***1^1r1c**it**1r1i*1t**********1t***************************** 

C 

COMMON /ANTNUM/ I ANT 

COMMON/INOUT  /IREAD, IWRITE, lOFILE 

COMMON/POWIRF/CPIRF (5, MTENNA) , GO (MTENNA) 

PARAMETER  (SMALL-1 . OE-10) 

LOGICAL  LIMIT 
DATA  LIMIT  /.FALSE./ 

SAVE  LIMIT 

X  =  CPIRF(2, lANT) *TAU/2.0 
Y  -  CPIRF (3, lANT) *SQRT (TAU) /2 . 0 
W  =  (CPIRF (1, lANT)  -  CPIRF (2, lANT) ) *TAU  - 
1  CPIRF (3, lANT) *SQRT (TAU) 

IF(X  .LE.  SMALL  .OR.  Y  .LE.  SMALL)  THEN 

PIRFl  -  EXP(-W)*BI0EXP(2.0*X)*BI0EXP(2.0*Y) 

1  *G0(IANT)*CPIRF(5,IANT) 

RETURN 
END  IF 

Z  -  CPIRF (4, lANT) 

KM  -  10.0*MAX(X, Y/2.0) 

KM  -  MAX (KM, 10) 

IF(KM  .GT.  100)THEN 
KM  =  100 

IF(. NOT. LIMIT) THEN 
LIMIT  -  .TRUE. 

WRITE (IWRITE, 2000) 

2000  FORMAT (/2X, 

1  ******************************************** •/2X, 

2  'PROBLEM  IN  PIRFl  -  POW(J)  MAY  BE  UNRELIABLE ’ /2X, 

3  >*«*«******»********************************•/) 

END  IF 
END  IF 
RX  -  0.0 
RYl  =■  0.0 
RY2  -  0.0 
PIRFl  -  0.0 
DO  10  I-KM, 1,-1 

RX  =  1 . 0/ (RX+FLOAT (I) /X) 

RYl  -  1 . 0/ (RY2+FLOAT (2*1) /Y) 

RY2  =  1 . 0/ (RYl+FLOAT (2*1-1) /Y) 

PIRFl  -  (PIRFl  +  COS (FLOAT (I) *Z) ) *RX*RY1*RY2 
10  CONTINUE 

PIRFl  =  EXP (-W) *BI0EXP (2 . 0*X) *BI0EXP (2 .0*Y) * (1 .0  +  2.0*PIRF1) 

1  *G0 (lANT) *CPIRF (5, lANT) 

RETURN 

END 
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Table  26.  CIRF  Fortran  code 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

|C 

c 

'c 

|C 

c 

c 

|C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


PROGRAM  CIRF 
PARAMETER  (VERSON=l . 11 ) 

***********,*********  VERSION  1.11  ***  25  APR  1991  *************************** 

THIS  PROGRAM  GENERATES  REALIZATIONS  OF  THE  CHANNEL  IMPULSE  RESPONSE. 

NO  ANTENNA  EFFECTS  ARE  INCLUDED.  FREQUENCY  SELECTIVE  FADING,  FLAT 
FADING,  AND  NON-FADING  CHANNELS  MODELS  MAY  BE  SELECTED.  FOR 
FREQUENCY  SELECTIVE  FADING  CHANNELS,  EITHER  THE  FROZEN-IN  OR  TURBULENT 
MODELS  MAY  BE  SPECIFIED. 

THIS  ROUTINE  WAS  DESIGNED  AND  WRITTEN  AND  IS  MAINTAINED  BY: 

ROGER  A.  DANA 

MISSION  RESEARCH  CORPORATION 
735  STATE  STREET 
P.O.  DRAWER  719 

SANTA  BARBARA,  CALIFORNIA  93102 
(805)963-8761  EXT.  212 

TESTING,  BITS  OF  CODE,  AND  BLESSINGS  BY 
LEON  A.  WITTWER 
DEFENSE  NUCLEAR  AGENCY 
ATMOSPHERIC  EFFECTS  DIVISION 
WASHINGTON,  DC  20305 
(202) 325-7028 

******************.**,  SET  ARRAY  SIZES  ************************************** 

MDELAY  =  (^XIMUM  NUMBER  OF  DELAY  SAMPLES 
MTIMES  »  MAXIMUM  NUMBER  OF  TIME  SAMPLES 
MAXBUF  =  MAXIMUM  NUMBER  OF  WORDS  IN  A  BUFFER 
MAXIMUM  RECORD  SIZE  =  MAXBUF  +  1 

INCLUDE  'CIRF.SIZ' 

***************************  input  data  ************************************** 

CHANNEL  PARAMETERS 

I FADE  =  CHANNEL  MODEL  FLAG 

=  0  CONSTANT  IMPULSE  RESPONSE  FUNCTION  (AWGN) 

=  1  NOT  ALLOWED  IN  CIRF  (GENERAL  MODEL  WITH  ANTENNAS) 

=  2  FROZEN- IN  MODEL 
=  3  TURBULENT  MODEL 
=  4  FLAT  FADING 

FO  -  FREQUENCY  SELECTIVE  BANDWIDTH  (HZ) 

TAUO  =  DECORRELATION  TIME  (SECONDS) 

REALIZATION  PARAMETERS 

KASE  =  KASE  NUMBER  OF  REALIZATION 

IDENT  =  ALPHANUMERIC  IDENTIFIER  FOR  REALIZATION 

DELTAU  -  DELAY  SAMPLE  SIZE  (SEC) 

KDELAY  =  NUMBER  OF  DELAY  SAMPLES 
NTIMES  =  NUMBER  OF  TIME  SAMPLES 
IJSEED  =  INITIAL  RANDOM  NUMBER  SEED 
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Table  26.  CIRF  Fortran  code  (Continued). 


C  NO  =  NUMBER  OF  SAMPLES  PER  DECORRELATION  TIME 

C 

C  NOTES:  GENERAL  MODEL  WITH  ANTENNAS  (IFADE=1>  REQUIRES  ACIRF  CODE 
C  CASE  NUMBER  FOR  IDENTIFICATION  ONLY 

C  I  DENT  MUST  BE  <=  80  CHARACTERS 

C  NTIMES  MUST  BE  <=  MTIMES 

C  NDELAY  MUST  BE  <=  MDELAY 

C  NDELAY=  1  FOR  FLAT  FADE  OR  AWGN  MODELS 

C  NTIMES  DEFAULT  =  1024 

C  IJSEED  DEFAULT  =  9771975 

C  NO  DEFAULT  =  10  (MUST  BE  >=  10) 

C 

(^it  -k  ^  h  ^  it  H  it  it  it  it  ir  it  *  it  it  *  it  ii  *  ic  ii  it  It  It  If  h  ii  h  -k  t  It  It  it  it  *  It  ii  ii  it  -k  It  it  It  h  It  h  It  -k  It  It  it  it  -k  It  it  It  it  it  is  it  1i  It  It  h  *  ii  it  h  it  it  ic  ii  *  it  it 

c 

CHARACTER  IDENT*80 
LOGICAL  STOPER 
COMMON/CHANEL/TAUO, FO 

COMMON/GRDSIZ/DELTAU, TAUMIN, DELTAT, DELTAF 
COMMON/HEADER/RDATAl (NDATAl) , RDATA2 (NDATA2 ) 

COMMON/INOUT  /IREAD, IWRITE, lOFILE 
COMMON/ I NTGRL/NTASUB 
COMMON/POWERS/G (MDELAY) , GRDPOW (2) 

COMMON/RANSED/ISEED, JSEED 
COMMON/REALZN/NDELAY, NTIMES, ALPHA, NO 
PARAMETER  (P 1=3 . 1 4 1 592 654 , TWOP 1=2 . 0*PI ) 

DATA  STOPER/ .TRUE. / 

******  SET  CONSTANTS  AND  FIXED  PARAMETERS 

ALPHA  =  4.0 
NTASUB  =100 
INPUT  =  1 
IREAD  =  2 
IWRITE  =  3 
lOFILE  =  11 

******************************************************************************* 

OPEN (UNIT= IREAD  , FILE= ' CIRF . DAT ' , STATUS= ’ OLD ' ) 

OPEN (UNIT=IWRITE, FILE= 'CIRF.OUT' , STATUS- • NEW • ) 

CALL  PREPRC (IREAD, INPUT) 

CLOSE (UNIT=IREAD) 

C 

C  CASE  NUMBER  AND  IDENTIFICATION 
C 

READ  (INPUT,  *)KASE,  STO^^ER 
IDENT  =  '  ' 

READ  (INPUT, * )  IDENT 
MDENT  =  LENGTH  (IDENT) 


C  CHANNEL  PARAMETERS 
C 

READ (INPUT, * ) IFADE, FO, TAUO 

IFdFADE  .LT.  0  .OR.  IFADE  .  EQ .  1  .OR.  IFADE  .GT.  4)  THEN 
WRITE  (», 4000) 

4000  FORMAT  (2X,  ’•**•* *  INPUT  ERROR  •••***•) 

WRITE ( * , 4010) IFADE 

4010  FORMAT (2 X, ■ IFADE  MUST  BE  =  0 , 2 , 3 , 4 ’ , /2X, ’ IFADE  =  ’,110) 


oo  ooo  non 


Table  26.  CIRF  Fortran  code  (Continued) 


STOP  ’  CIRF  EXECUTION  TERMINATED' 

END  IF 
C 

C  REALIZATION  PARAMETERS 
C 

NTIMES  =  1024 
IJSEED  =  9771975 

READ (INPUT, * )NDELAY, DELTAU , NTIMES, IJSEED, NO 
CLOSE (0NIT=INPUT, STATUS^ ’ DELETE ' ) 

JSEED  »  lAND  (IJSEED, 65535) 

ISEED  =  lANC (ISHFT (I JSEED, -16) , 65535) 

IFdFADE  .EQ.  4)  THEN 
FO  =  1.0E30 
NDELAY  =  1 
END  IF 

IF(IFADE  .EQ.  0)THEN 
NDELAY  =  1 
FO  =  1.0E30 

TAUO  =  1.0E30 
END  IF 
C 

C  NTIMES  MUST  BE  >=  1  AND  <=  MTIMES 
C 

IF(NTIMES  .LT.  1  .OR.  NTIMES  . GT .  MTIMES)THEN 
WRITE(*, 4000) 

WRITE (*, 4050) NTIMES, MTIMES 

4050  FORMAT (2 X, 'NTIMES  MUST  BE  >=  I  AND  <-  MTIMES', /2X, 

1  'NTIMES  -  ', I10/2X, 'MTIMES  =  ',110) 

STOP  '  CIRF  EXECUTION  TERMINATED' 

END  IF 

NDELAY  MUST  BE  >=  1  AND  <=  MDELAY 

IF (NDELAY  .LT.  1  .OR.  NDELAY  .GT.  MDELAY) THEN 
WRITE(*, 4000) 

WRITE (*, 4060) NDELAY, MDELAY 

4060  FORMAT (2 X, 'NDELAY  MUST  BE  >=  1  AND  <=  MDELAY', /2X, 

1  'NDELAY  =  ', I10/2X, ' MDELAY  =  ',110) 

STOP  '  CIRF  EXECUTION  TERMINATED’ 

END  IF 

THERE  MUST  BE  AT  LEAST  10  SAMPLES  PER  DECORRELATION  DISTANCE  OR  TIME 

IF(N0  .LT.  10)THEN 
WRITE (*, 4000) 

WRITE (* , 4070) NO 

4070  FORMAT (2X, 'NO  MUST  BE  >=  10',/2X, 'NO  =  ',110) 

IF (STOPER) STOP  '  CIRF  EXECUTION  TERMINATED' 

END  IF 

THERE  MUST  BE  AT  LEAST  100  DECORRELATION  TIMES  IN  EACH  REALIZATION 
C 

NTMIN  =  100*N0 
IF (NTIMES  .LT.  NTMIN) THEN 
WRITE (‘, 4000) 

WRITE ( ‘, 4080) NTIMES, NTMIN, MTIMES 
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Table  26.  CIRF  Fortran  code  (Continued) 


4080  FORMAT (2X, 'THERE  MUST  BE  AT  LEAST  100  DECORRELATION  TIMES 

1  'IN  EACH  REALIZATION' , /2X, 'NTIMES  =  ’.110/2X, 

2  'REQUIRED  NTIMES  =  ', 1 1 0/2X,  ' MAXIMUM  NTIMES  =  ’,110) 

IF (STOPER) STOP  CIRF  EXECUTION  TERMINATED' 

END  IF 

CALCULATE  GRID  SIZES 

DELTAT  =  TAUO/NO 

DELTAF  =  TWOPI/ (NTIMES*DELTAT) 

TAUMIN  =  DELTAU/2.0 

IFdFADE  .EQ.  2)TAUMIN  =  -0 . 25/ (TWOPI*FO) 


IFdFADE  .EQ. 

0 

.OR.  IFADE  .EQ.  4 ) THEN 

GRDPOW ( 1 ) 

= 

1.0 

GRDPOW  (2) 

1.0 

G(l) 

1 . 0 

NDRQD 

1 

ELSE 

CALL  TAUGD2 (IFADE, NDRQD) 

END  IF 
C 

C»***»*  print  INPUT  DATA 
C 

WRITE (I WRITE, 2000) VERSON, KASE 

2000  FORMAT (2X, 'CIRF  CHANNEL  SIMULATION  VERSION  ',F6.2/4X, 

1  'CASE  NUMBER  ' , 110) 

IFdFADE  .EQ.  0 )  WRITE  (IWRITE ,  2001 ) 

IFdFADE  .EQ.  2 )  WRITE  (IWRITE ,  2002 ) 

IFdFADE  .EQ.  3)  WRITE  (IWRITE,  2003) 

IFdFADE  .EQ.  4 )  WR ITE  ( IWRITE ,  2004 ) 

2001  FORMAT (4X, 'CONSTANT  IMPULSE  RESPONSE  FUNCTION') 

2002  FORMAT (4X, 'TEMPORAL  VARIATION  FROM  FROZEN-IN  MODEL') 

2003  FORMAT (4X, 'TEMPORAL  VARIATION  FROM  TURBULENT  MODEL') 

2004  FORMAT  (4 X,  ' FLAT  FADING  WITH  1/F**4  DOPPLER  SPECTRUM') 
WRITE (IWRITE, 2  009)  I  DENT  (1 :MDENT) 

2009  FORMAT (4X,  ' REALIZATION  I  DENT  I F ICATION ;  ' , /4X, A) 

WRITE (IWRITE, 2010) FO, TAUO 

2010  FORMAT (/2X, ' CHANNEL  PARAMETERS ',/ 4X, 

1  'FREQUENCY  SELECTIVE  BANDWIDTH  (HZ)  =  ' , IPEIO . 3/4X, 

2  'DECORRELATION  TIME  (SEC)  =  ',E10.3) 

WRITE ( IWRITE, 2020) NDELAY , DELTAU, NTIMES, NO, IJSEED 

2020  FORMAT  (/2X,  ' REALIZATION  PARAMETERS ', /4X, 

1  'NUMBER  OF  DELAY  SAMPLES  =  ',I10/4X, 

2  'DELAY  SAMPLE  SIZE  (SEC)  =  ' , IPElO . 3/4X, 

3  'NUMBER  OF  TEMPORAL  SAMPLES  =  ',I10/4X, 

4  'NUMBER  OF  TEMPORAL  SAMPLES  PER  TAUO  =  ',I10/4X, 

5  'INITIAL  RANDOM  NUMBER  SEED  =  ',112) 

IF  (NDRQD  .LT.  NDELAY) WRITE (IWRITE, 2025) NDRQD 

2025  FORMAT (/2X,  '****“  ****  WARNING  *»**••****■ /2X, 

1  'ONLY  ',14,'  DELAY  BINS  ARE  REQUIRED ' /2X, 

2  '**♦***♦**. ***********************'j 

C 

C»*****  OPEN  BINARY  FILES  FOR  REALIZATIONS 
C 

DO  100  11=1, NDATAl 

RDATAl  (ID  =  0.0 
100  CONTINUE 


o  n  o  non 


Table  26.  CIRF  Fortran  code  (Continued) 


DO  105  IJ=1,NDATA2 

RDATA2 (IJ)  =0.0 
105  CONTINUE 


RDATAI 

(  1) 

= 

2.0 

RDATAI 

(  2) 

= 

EASE 

RDATAI 

(  4) 

= 

TAUO 

RDATAI 

(  5) 

= 

FO 

RDATAI 

(  9) 

= 

1.0 

RDATAI 

(13) 

= 

NTIMES*DELTAT 

RDATAI 

(14) 

= 

NTIMES 

RDATAI 

(15) 

DELTAT 

RDATAI 

(16) 

NO 

RDATAI 

(20) 

NDELAY 

RDATAI 

(21) 

= 

TAOMIN 

RDATAI 

(22) 

=: 

DELTAU 

RDATAI 

(23) 

= 

ISEED 

RDATAI 

(24) 

= 

JSEED 

RDATAI 

(25) 

MAXBUF 

RDATAI 

(28) 

VERSON 

OPEN (UNIT=IOFILE, FILE= ’CIRF.BIN- , STATUS=’NEW' , FORM= ' UNFORMATTED ' ) 
WRITE (lOFILE)  MDENT, IDENT ( 1 ; KDENT) 

WRITE (lOFILE)  NDATAl,  (RDATAI  (I I ) , 1 1  =  1 , NDATAl ) 

WRITE (lOFILE)  NDATA2 ,  (RDATA2 ( 1 1 ) , 1 1  =  1 , NDATA2 ) 

******  CHANNEL  SIMULATORS 

IFdFADE  .EQ.  0)CALLCHANL0 
IFdFADE  .EQ.  2)  lALL  CHANL2 
IFdFADE  .EQ.  3)  CALL  CHANL3 
IFdFADE  .EQ.  4)  CALL  CHANL4 

******  measure  impulse  response  FUNCTION  STATISTICS 

CALL  MEASR2 

IJSEED  =  lORdSHFT  (ISEED,  16)  ,  JSEED) 

WRITE (IWRITE, 2100) IJSEED 

2100  FORMAT (/2X, 'FINAL  RANDOM  NUMBER  SEED  =  ’,112) 

CLOSE (UNIT=IWRITE) 

STOP  '  CIRF  COMPLETED’ 

END 
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Table  27.  CHANLO  Fortran  code 


c 

0*  * ★ *  * 

c 

C  THI 
C 

Q*  *  *  *  * 

C 


c 

c 

c 

C*  *  *  *  * 

c 

*  *  *  *  * 


3000 

20 


SUBROUTINE  CHANLO 

****************  VERSION  1,2  ***  08  JAN  1990  **************************** 

S  SUBROUTINE  GENERATES  A  CONSTANT  IMPULSE  RESPONSE  FUNCTION 
************************************************************************** 


COMMON /GRDS I Z / DELTAU , T AUMI N , DE  LTAT , DELTAF 
COMMCN/REALZN/NDELAY, NTIMES, ALPHA, NO 
COMMON/INOUT  / IREAD , IWRI TE , lOFILE 
COMPLEX  HA 
LOGICAL  RESET 

*  RESET  WRITER  ROUTINE 
RESET  =  .TRUE. 

CALL  WRITER (RESET, NDELAY, NTIMES, IOFILE,HA) 

*  CALCULATE  CONSTANT  IMPULSE 
HA  =  CMPLX (1 . 0/DELTAU, 0. 0) 

*  SET  IMPULSE  RESPONSE  FUNCTION  TO  HA  -OR  ALL  TIMES 
DO  20  NT=1 , NTIMES 

CALL  WRITER (RESET, NDELAY, NTIMES, lOFILE, HA) 

IF (MOD (NT, NTIMES/NO)  .EQ.  0)THEN 
WRITE(*, 3000)NT 

FORMAT (2X, 'TIME  ’,15,'  COMPLETE') 

END  IF 
CONTINUE 
RETURN 
END 


1-50 


non  nan 


Table  28.  CHANL2  Fortran  code. 


SUBROUTINE  CHANL2 
C 

****************  VERSION  2.3  ***  08  JAN  1990  ***************************** 

C 

C  THIS  SUBROUTINE  CALCULATES  IMPULSE  RESPONSE  FUNCTION  USING 
C  FROZEN-IN  APPROXIMATION  WITHOUT  ANTENNA  EFFECTS. 

C 

C**********************  SET  ARRAY  SIZES  ************************************** 

C 

INCLUDE  'CIRF.SIZ' 

C 

Q******************************************************************************* 

c 

EXTERNAL  TAUPSD 
COMMON/CHANEL/TAUO, FO 

COMMON /GRDS I Z / DELT AU , T AUMI N , DELTAT , DELTAF 
COMMON/IMPULS/RA  (MTIMES, MDELAY) , HB (MTIMES)  ,  HC (MDELAY) 

COMMON/INOUT  /IREAD, IWRITE, lOFILE 
COMMON / 1 NTGRL/ NTAS  UB 
COMMON/POWERS/G (MDELAY) , GRDPOW (2) 

CCMMON/PSDCOM/OMEGAT,  SO 
COMMON/RANSFD/ISEf.D,  JSEED 
COMMON/REALZN/NDELAY, NTIMES,  ALPHA,  NO 
COMPLEX  AWGN,HA,HB,HC 

PARAMETER  (PI-3 . 1 4 1592 654 , TWOPI=2 . 0*PI ) 

PARAMETER  (SMALL-1 . OE-10) 

PRECOMPUTE  COEFFICIENTS  OF  GENERALIZED  POWER  SPECTRUM 

SO  -  TAU0*SQRT (ALPHA/ (PI *SQRT (2.0))) 

OMEGAC  -  TWOPI*F0*SQRT(1.0+1.0/ALPHA**2) 

MIDDOP  =  NTIMES/2  +  1 
GRDPOW (1)  -  0.0 
IFFT  =  -1 

LOGNT  =  (ALOG(FLOAT (NTIMES) ) /ALOG (2.0)  +  0.5) 

FIND  DELAY  BIN  WITH  LARGEST  ENERGY 

GMAX  =0.0 
JGMAX  =  1 

DO  10  J=0,NDELAY-1 

IF(G(J+1)  .GT.  GMAX)THEN 
JGMAX  =  J+1 
GMAX  =  G(J+1) 

END  IF 
10  CONTINUE 
C 

C  START  LOOP  OVER  DELAY 
C 

DO  50  J-0,NDELAY-1 
C 

C  SET  IMPULSE  RESPONSE  FUNCTION  TO  ZERO  IF  ENERGY  IN  DELAY  BIN  IS  SMALL 
C 

IF (G (J+1)  .LT.  SMALL*G (JGMAX) ) THEN 
DO  20  KK=1, NTIMES 

HB(KK)  =  (0.0, 0.0) 
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Table  28.  CHANL2  Fortran  code  (Continued). 


20  CONTINUE 

GO  TO  35 
END  IF 
C 

C  CALCULATE  ENERGY  IN  A  KX-KY  GRID  CELL  AND  GENERATE  RANDOM  VOLTAGE 
C  ZERO  DC  FREQUENCY  COMPONENT 
C 

TAU  =  TAUMIN  +  J*DELTAU 
TAUI  =  OMEGAC* (TAU  -  DELTAU/2.0) 

TAU2  =  OMEGAC* (TAU  +  DELTAU/2.0) 

DO  30  KK=I,MIDDOP 

KN  =  NTIMES  -  KK  +  2 
DOP  =  (KK-1) *DELTAF 
OMEGAT  =«  (DOP*TAUO/2 . 0)  **2 

ENRG  -  (DELTAF/TWOPI) *SIMPSN (TAUPSD,TAU1,TAU2, NTASUB) 
GRDPOW(l)  =  GRDPOW(l)  +  ENRG 
IF(KK  .GT.  DTHEN 

HB(KK)  =  SORT (ENRG) *AWGN (ISEED, JSEED) /DELTAU 

ELSE 

HB(KK)  =  (0.0, 0.0) 

END  IF 

IF(KK  .NE.  I  .AND.  KK  .NE.  MIDDOP)THEN 
GRDPOW(l)  =  GRDPOW(l)  +  ENRG 

HB(KN)  =  SORT (ENkG) *AWGN (ISEED, JSEED) /DELTAU 
END  IF 

30  CONTINUE 

ZERO  DC  TERM 

HB(1)  =  (0.0, 0.0) 

FAST  FOURIER  TRANSFORM  FROM  DOPPLER  TO  TIME 

CALL  FFT (HB, LOGNT, NTIMES, IFFT) 

OUTPUT  IMPULSE  RESPONSE  FUNCTION  INTO  BINARY  FILE 

35  DO  40  KK=I , NTIMES, MAXBUF/2 

NK  =  MINO (NTIMES, KK+MAXBUF/2-I) 

WRITE (lOFILE)  (HB (K) , K=KK, NK) 

40  CONTINUE 

GO  TO  NEXT  DELAY 
C 

WRITE(*, 3000) J+1 

3000  FORMAT (2X, 'DELAY  ’,13,'  COMPLETE') 

50  CONTINUE 
C 

C  RESORT  THE  BINARY  FILE 
C 

CALL  RESORT (NDELAY, NTIMES) 

RETURN 

END 
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Table  29.  RESORT  Fortran  code. 


c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE  RESORT (NDELAY, NTIMES) 

*********************  VERSION  1.5  ***  08  JAN  1990  **************************** 

THIS  ROUTINE  RESORTS  FILES  GENERATED  UNDER  FROZEN-IN  MODEL 

FROM  ALL  TIME  SAMPLES  FOR  EACH  DELAY  TO  ALL  DELAY  SAMPLES  FOR  EACH  TIME 

**********************  SET  ARRAY  SIZES  ************************************* 


INCLUDE  ’CIRF-SIZ’ 


C 

Q****»***»********************************************************************* 

c 

COMMON/INOUT  /IREAD, IWRITE, lOFILE 

COMMON/IMPULS/HA (MTIMES, MDELAY) , HB (MTIMES) , HC (MDELAY) 

COMPLEX  HA,HB,HC 
CHARACTER* 80  I DENT 

DIMENSION  RDUMl (NDATAl) ,RDUM2 (NDATA2) 

LOGICAL  RESET 


******  reset  writer  routine 


RESET  =  .TRUE. 

CALL  WRITER (RESET, NDELAY, NTIMES, lUNIT.HC) 

******  READ  IMPULSE  RESPONSE  FUNCTION  FROM  FILE 
REWIND  lOFILE 

READ  (lOFILE)  MDENT, IDENT ( 1 : MDENT) 

READ  (lOFILE)  NDUMl ,  (RDUMl  (N) , N=1 , NDUMl ) 

READ  (lOFILE)  NDUM2 , (RD0M2 (N) , N-1 , NDUM2) 

DO  20  N=l, NDELAY 

DO  10  I-l,NTIMES,MAXBUF/2 

IP  -  MINO (NTIMES, I+MAXBUF/2-1) 
READ(IOFILE)  (HA (K, N) , K-I, IP) 

10  CONTINUE 

20  CONTINUE 
C 

C******  WRITE  IMPULSE  RESPONSE  FUNCTION  BACK  INTO  FILE 
C 

REWIND  lOFILE 

READ  (lOFILE)  MDENT, IDENT ( 1 : MDENT) 

READ  (lOFILE)  NDUMl , (RDUMl (N) , N=1 , NDUMl) 

READ  (lOFILE)  NDUM2 , (RDUM2 (N) , N=1 , NDUM2) 

DO  40  K=l, NTIMES 

DO  30  J-1, NDELAY 

HC(J)  -  HA(K,J) 

30  CONTINUE 

CALL  WRITER (RESET, NDELAY, NTIMES, lOFILE, HC) 

40  CONTINUE 
RETURN 
END 


153 


Table  30.  TAUPSD  Fortran  code, 


FUNCTION  TAUPSD (TAU) 

C 

C*»**»»»********x*****  VERSION  1.1  ***  16  MAY  1988  **************************** 

C 

C  THIS  FUNCTION  CALCULATES  THE  POWER  SPECTRAL  DENSITY  FOR 
C  ISOTROPIC  SCATTERING 

C  NO  EXPLICIT  ANTENNA 

C 

Q*  *  *  *  *  ii  *******  It  it  *  it  ***********  ic  t  *  t  *********  ti  ***********************************  * 

C 

COMMON/REALZN/NDELAY, NTIMES, ALPHA, NO 
COMMON/PSDCOM/OMEGAT, SO 

ARG  =  (1.0  +  ALPHA**2* (OMEGAT  -  TAU) ) / (SQRT (2 . 0) ‘ALPHA) 

TAUPSD  «  S0*EXP (0. 5/ALPHA»*2-TAU) *WITWER(ARG) 

RETURN 

END 


Table  31.  WITWER  Fortran  code. 


FUNCTION  WITWER (Z) 

C 

Q* ******************* *  VERSION  1.0  *•*  25  NOV  1987  **************************** 
C 

C  WITTWER’S  G  FUNCTION  (DNA  5662D  P34) 

C 

Q****************************************************************************** 

c 

PARAMETER  (P 1= J . 1 4 1 5 92 654 ) 

IF(Z  .GT.  1.0)THEN 

F  =  1.0  -  0.191/Z**2  +  0.19?/Z**4  -  0.112/Z**6 
WITWER  =  SORT (PI / (2 . 0*Z)  ) *EXP  (-Z»*2) *F 
RETURN 
END  IF 

IF(Z  .LE.  1.0  .AND.  Z  . GE .  -1.0)THEN 

F  =  -0.675‘Z  -  0.729*Z**2  -  0.109*Z**3  +  0.031*Z‘*4 
WITWER  =  1 . 813*EXP  (F) 

RETURN 
END  IF 

IF(Z  .LT.  -1.0)THEN 

F  =  1.0  +  0.290/Z**2  -  0.178/Z**4  +  0.0014/Z**6 
WITWER  =  SORT (PI/ABS (Z) ) *F 
RETURN 
END  IF 
END 
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Table  32.  CHANL3  Fortran  code, 


SUBROUTINE  CHANL3 
C 

C************* *»»**»**  VERSION  2.3  »»»  08  JAN  1990  **************************** 

C 

C  THIS  SUBROUTINE  CALCULATES  IMPULSE  RESPONSE  FUNCTION  USING  THE 
C  TURBULENT  APPROXIMATION  WITHOUT  ANTENNA  EFFECTS. 

C 

»*»*.****. »*.**»»  SET  ARRAY  SIZES  ************************************** 

C 

INCLUDE  ’CIRF.SIZ' 

C 

COMMON/CHANEL/TAUO, FO 

COMMON/GRDSI Z / DELTAU , TAUMI N , DELTAT , DELTAF 
COMMON/INOUT  /IREAD, IWRITE, lOFILE 
COMMON /POWERS/G(MDELAy) , GRDPOW (2) 

COMMON/RANSED/ISEED, JSEED 
COMMON/REALZN/NDELAY, NTIMES, ALPHA,  NO 
COMPLEX  AWGN,HA(MDELAy) ,HB(MDELAY) ,HC'MDELAY) 

PARAMETER  (SMALL=1 . OE-10) 

LOGICAL  RESET 

*“•**  RESET  WRITER  ROUTINE 
Rj-:SET  =  .TRUE. 

C/'LL  WRITER  (RESET,  NDELAY,NTIMES,  IOFILE,HC) 

INITIALIZE  1/F**4  RANDOM  NUMBERS 

X  =2. 146193/NO 
•  ;o  =  EXP  (-X) 

A'lP  =  SORT  (TANH  (X)  ) 

^ 1  =  RHO 

=  SORT  (1 . 0-BHO*‘2) 

Cl  =  C2‘AMP 
!•  '  3  0  J=1 ,  NDELAY 

HA(J)  =  AWGN( I  SEED, JSEED) 

HB(J)  =  AMP* AWGN (I  SEED, JSEED) 

WARM  UP  THE  1/F**4  FILTERS 

DO  20  NN-1,N0 

HA(J)  =  C1*HA{J)  +  C3»HB(J) 

HB(J)  =  C1*HB(J)  +  C2*AWGN(ISEED, JSEED) 

20  CONTINUE 

3  0  C-  NTINUE 

**»♦.*  START  LOOP  OVER  TIME 

DO  50  NT=1,NTIMES 

DO  40  J-1, NDELAY 

SET  IMPULSE  RESPONSE  FUNCTION  TO  ZERO  IF  ENERGY  IN  DELAY  BIN  IS  SMALL 
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on  on 


Table  32.  CHANL3  Fortran  code  (Continued) 


IF(G(J)  .LT.  SMALL*G(1) )THEN 
HC(J)  =  (0.0, 0.0) 

GO  TO  40 
END  IF 
C 

C  UPDATE  RANDOM  NUMBERS  AND  GENERATE  IMPULSE  RESPONSE  FUNCTION 
C 

HA(J)  =  C1*HA(J)  +  C3*HB(J) 

HB(J)  =  C1*HB(J)  +  C2*AWGN (ISEED, JSEED) 

HC(J)  =  SORT (G (J) ) *HA ( J) /DELTAU 
40  CONTINUE 

C 

WRITE  IMPULSE  RESPONSE  FUNCTION  INTO  BINARY  FILE 

CALL  WRITER (RESET, NDELAY , NTIMES, IOFILE,HC) 

GO  TO  NEXT  TIME 
C 

IF  (MOD  (NT,  NTIMES/NO)  .  EQ  .  0)TH.EN 
WRITE(*, 3000)NT 

3000  FORMAT (2X, ‘TIME  ',15,'  COMPLETE') 

END  IF 
50  CONTINUE 
RETURN 
END 


no  non  non 


Table  33.  CHANL4  Fortran  code 


SUBROUTINE  CHANL4 
C 

C»  •**»*****»•«»»***.» »  VERSION  2.2  ***  08  JAN  1990  **************************** 

C 

C  FLAT  FADING  MODEL  WITH  1/F**4  DOPPLER  SPECTRUM  AND  WITHOUT  ANTENNA  EFFECTS 
C 

Q**ik************A*************************A***A****#**Arik*Aik*ikit***tki^lk1kllrik**4r****i^* 

c 

COMMON/INOUT  /IREAD, IWRITE, lOFILE 
COMMON/GRDSIZ/DELTAU, TAUMIN, DELTAT, DELTAF 
COMMON/RANSED/ ISEED, JSEED 
COMMON/REALZN/NDELAY, NTIMES, ALPHA, NO 
COMPLEX  AWGN, HA, HB, HC 
LOGICAL  RESET 
C 

C*.**»*  reset  writer  ROUTINE 
C 

RESET  =  .TRUE. 

CALL  WRITER (RESET, NDELAY, NTIMES, IOFILE,HA) 

C 

Q******  INITIALIZE  1/F«*4  RANDOM  NUMBERS 
C 

X  =2. 146193/NO 
RHO  =  EXP (-X) 

AMP  -  SORT (TANH (X) ) 

Cl  =  RHO 

C2  =  SORT  (1 .0-RHO**2) 

C3  =  C2*AMP 

HA  =  AWGN (ISEED, JSEED) 

HB  =  AMP*AWGN (ISEED, JSEED) 

******  WARM  UP  THE  1/F**4  FILTERS 

DO  30  NN=1,N0 

HA  =  C1*HA  +  C3*HB 

HB  =  C1*HB  +  C2*AWGN( ISEED, JSEED) 

30  CONTINUE 

*«*.**  START  LOOP  OVER  TIME 
DO  50  NT=1, NTIMES 

UPDATE  RANDOM  NUMBERS  AND  GENERATE  IMPULSE  RESPONSE  FUNCTION 
C 

HA  =  C1*HA  +  C3*HB 

HB  =  C1*HB  +  C2*AWGN (ISEED, JSEED) 

HC  =  HA/DELTAU 
C 

C  WRITE  IMPULSE  RESPONSE  FUNCTION  INTO  BINARY  FILE 
C 

CALL  WRITER (RESET, NDELAY, NTIMES, lOFILE, HC) 

IF (MOD (NT, NTIMES/NO)  . EQ .  0)THEN 
WRITE(*, 3000)NT 

3000  FORMAT (2X, 'TIME  ',15,'  COMPLETE') 

END  IF 
50  CONTINUE 
RETURN- 
END 
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Table  34.  TAUGD2  Fortran  code. 


SUBROUTINE  TAUGD2 ( lEADE, NDRQD) 

»»*.*************.«..  VERSION  2.1  ***  08  JAN  1990  **************************** 

C 

'c  THIS  SUBROUTINE  COMPUTES  THE  ENERGY  IN  DELAY  GRID  CELLS  AND: 

C  STOPS  CIRF  IF  THERE  ARE  TOO  FEW  DELAY  GRID  CELLS 
C  PRINTS  A  WARNING  IF  THERE  ARE  TOO  MANY  DELAY  GRID  CELLS 
C 

C**********************  SET  ARRAY  SIZES  ************************************* 

C 

INCLUDE  'CIRF.SIZ' 

C 

Qtkik*ikik******A**Alk***'***********‘**********A**1kA**-**ikA*****ik*iki^Ar^l^A*ik'l^1k*tti^i^iki^**iki^ 

c 

EXTERNAL  PIRF2 
COMMON/CHANEL/TAUO , FO 

COMMON/GRDSIZ/DELTAU, TAUMIN, DELTAT, DELTAF 
COMMON/ INTGRL/NTASUB 

COMMON/REALZN/NDELAY, NTIMES, ALPHA, NO 
COMMON/POWERS/G (MDELAY) , GRDPOW  (2) 

PARAMETER  (P 1=3 . 1 4 1 592 654 ) 

PARAMETER  (SMALL“1 . OE-IJ, BIG=5 . 0) 

LOGICAL  STOPER 
C 

Qttt*t****tt»ttttt*tlit********t*t**li**li*»****t**tt1,******ttt********t********** 

C 

IF(IFADE  .EQ.  2) THEN 
ERQD  -  0.95 

OMEGAC  -  2.0*PI*F0*SQRT(1.0  +  1 . 0/ALPHA* *2) 

END  IF 

IFdFADE  .EQ.  3)THEN 
ERQD  =  0.975 
OMEGAC  =  2.0*PI*F0 
END  IF 

GRDPOW  (2)  =0.0 
DO  40  J=1,NDELAY 

TAU  =  TAUMIN  +  (J-1)*DELTAU 
TAUl  =  OMEGAC* (TAU  -  DELTAU/2.0) 

TAU2  =  OMEGAC* (TAU  *  DELTAU/2.0) 

IF  (TAUl  .LE.  SMALL  .AND.  TAU2  .GE.  BIG)THEN 
G ( J)  =  1.0 
GRDPOW (2)  =  1.0 
GO  TO  40 
END  IF 

IF  (IFADE.EQ. 2) G ( J)  =  S I MPSN (PIRF2 , TAUl , TAU2 , NTASUB ) 

IF (IFADE.EQ. 3) G( J)  =  EXP(-TAUl)  -  EXP(-TAU2) 

GRDPOW  (2)  -  GRDPOW (2)  +  G(J) 

IFdFADE  .EQ.  3)GRDPOW(l)  =  GRDPOW(2) 

40  CONTINUE 
C 

C******  TEST  DELAY  GRID  FOR  TOO  LITTLE  ENERGY  OR  EXCESS  DELAYS 
C 

STOPER  =  .FALSE. 

TAUMAX  =  0.0 
NDRQD  =  0 

IF(GRDPOW(2)  .LT.  ERQD) THEN 
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Table  34.  TAUGD2  Fortran  code  (Continued) 


c 

C  NOT  ENOUGH  ENERGY  IN  GRID,  CALCULATE  REQUIRED  MAXIMUM  DELAY 
C 

STOPER  =  .TRUE. 

IFdFADE  .EQ.  3)  THEN 

TAUMAX  =  -ALOG (1 . 0-ERQD) 

ELSE 

TAUl  =  OMEGAC* (TAUMIN  -  0.5*DELTAU) 

TAU2  =  OMEGAC* (TAUMIN  +  NDELAY*DELTAU  -  0.5*DELTAU) 
MAXITR  =  1  +  ALOG (BIG/TAU2) /ALOG (1 . 1) 

ETAUl  -  SIMPSN (PIRF2,TAU1,TAU2,NDELAY*NTASUB) 

TAUl  =  TAU2 
DO  60  ITER=1, MAXITR 
TAU2  =  1.1*TAU1 

ETAU2  =  ETAU1+SIMPSN{PIRF2,TAU1,TAU2,NTASUB) 

IF  (ETAU2  .GE.  EBQD)GO  TO  65 
TAUl  =  TAU2 
ETAUl  =  ETAU2 
60  CONTINUE 

65  TAU2  =  TAUl  +  (ERQD-ETAUl ) * (TAU2-TA01 ) / (ETAU2-ETAU1 ) 

TAUMAX  =  AMAXl (TAUMAX, TAU2) 

END  IF 

ELSE 

ENOUGH  ENERGY,  SEE  IF  THERE  ARE  TOO  MANY  DELAY  BINS 

ETAU2  »  0.0 
DO  70  J=1,NDELAY 

ETAU2  =  ETAU2  +  G(J) 

IF(ETAU2  .GE.  ERQD)  GO  TO  75 
70  CONTINUE 

75  NDRQD  =  MAXO (NDRQD, J) 

END  IF 
80  CONTINUE 

******  not  ENOUGH  ENERGY  IN  DELAY  GRID  -  STOP  CIRF 

IF  (STOPER) THEN 

TAUINP  =  NDELAY*DELTAU 

TAURQD  =  TAUMAX/OMEGAC  -  (TAUMIN  -  0.5*DELTAU) 

NDRQD  =  1.0  +  TAURQD/DELTAU 
WRITE(*, 4011) 

WRITE (*, 4012 ) TAUINP, TAURQD, NDELAY, NDRQD 

4011  FORMAT  (2X,  ■♦**** *  DELAY  GRID  ERROR  **♦***') 

4012  FORMAT  {4X,  ' INSUFFICIENT  DELAY  IN  DELAY  GRID’/4X, 

1  'INPUT  DELAY  =  ',1PE12.4,'  *  NDELAY* DELTAU '/ 4X , 

2  'REQUIRED  DELAY  =  ’,E12.4/4X, 

3  'INPUT  NDELAY  =  ',I12/4X, 

4  'REQUIRED  NDELAY  =  ',112,'  FOR  FIXED  DELTAU') 

STOP  '  CIRF  EXECUTION  TERMINATED' 

END  IF 

*.*»♦*  xOO  MANY  DELAY  BINS  -  PRINT  WARNING 

ir{NDRQD  .LT.  NDELAY) WRITE (*, 4015) NDRQD 
4015  FORMAT  (/2X,  '  **********  WARNING  **»**»*»**• /2X, 

1  'ONLY  ’,14,'  DELAY  BINS  ARE  REQUIRED ' /2X, 

2  '♦**•«*♦♦»**»****»*♦»**«»***»*»*»»■) 

RETURN 

END 
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Table  35.  MEASR2  Fortran  code, 


SUBROUTINE  MEASR2 
C 

C»**. *.*.***.. ..**.»*.  VERSION  2.2  ***  25  APR  1991  *************************** 

C 

C  THIS  SUBROUTINE  MEASURES  AND  WRITES  THE  STATISTICS 

C  OF  THE  IMPULSE  RESPONSE  FUNCTION  REALIZATIONS  GENERATED  BY  CIRF 

C 

*»*.»♦»»***...».*.****  SET  ARRAY  SIZES  ************************************* 

INCLUDE  'CIRF.SIZ' 

****************************************************************************** 

CHARACTER* 80  I  DENT 
LOGICAL  RESET 
COMMON/CHANEL/TAUO, FO 

COMMON/ IMPULS/HA (MTIMES, MDELAY) , HB (MTIMES) , HC (MDELAY) 

COMMON/INOUT  / IREAD, IWRITE, lOFILE 
COMMON /POWERS/G (MDELAY) , GRDPOW (2 ) 

DIMENSION  AMPAVE (MDELAY+1, 4) , S4 (MDELAY+1) , CHIBAR (MDELAY+1, 2) 

DIMENSION  HEADER  (NDATAI) 

COMPLEX  HA,HB,HC,HD 

PARAMETER  (PI -3. 1 4 1 592 654 , TWOP 1=2 . 0*PI , EULER=0 . 57721 57 ) 

PARAMETER  (XINORM- -EULER/2 . 0 , X2NORM-PI **2/24 . 0+EULER* *  2/ 4 . 0) 

******  read  realizations  and  COLLECT  STATISTICS 

WRITE (IWRITE, 2000) 

2000  FORMATdHl,  IX,  ’MEASURED  PARAMETERS  OF  REALIZATION’) 

READ  HEADER  RECORDS 
REWIND  lOFILE 

READ (lOFILE)  MDENT, IDENT (1 :MIN0 (MDENT, 80) ) 

READ(IOFILE)  MDATAl, (HEADER ( I I ) , I 1=1 , MINO (MDATAl , NDATAI ) ) 

NTIMES  -  HEADER  (14)  +■  0.01 
DELTAT  =  HEADER (15) 

NO  =  HEADER(16)  +  0.01 

NDELAY  =  HEADER (20)  +0.01 
JT  =  NDELAY  +  1 

TAUMIN  =  HEADER (21) 

DELTAU  -  HEADER (22) 

RESET  =  .TRUE. 

CALL  READER (RESET, NDELAY, NTIMES, lOFILE, HC) 

C 

C  INITIALIZE  (MEASUREMENTS 

C 

DO  20  J=1,JT 

CHIBAR(J,1)  -  0.0 
CHIBAR(J,2)  =  0.0 
DO  10  M=1 , 4 

AMPAVE (J,M)  =0.0 
10  CONTINUE 

20  CONTINUE 

AVENRG  =0.0 
AVETAU  =0.0 
SIGTAU  =0.0 
DO  40  KK=1, NTIMES 
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Table  36.  MEASR2  Fortran  code  (Continued) 


c 

C  READ  IMPULSE  RESPONSE  FUNCTION 
C 

CALL  READER (RESET, NDELAY , NTIMES, lOFILE.HC) 
HB(KK)  =  (0.0, 0.0) 

HD  =  (0.0, 0.0) 

C 

C  COLLECT  STATISTICS  VERSUS  DELAY 
C 

DO  30  J=l, NDELAY 

AMP  -  CABS  (HC (J) ) ‘DELTAU 
IF (AMP  .GT.  0.0) THEN 
POW  =  AMP* *2 
HD  =  HD  +  HC(J)*DELTAU 
HB(KK)  =  HB(KK)  +  HC(J)*DELTAO 
AMPAVE(J,1)  =  AMPAVE(J,1)  +  AMP 

AMPAVE(J,2)  =  AMPAVE(J,2)  +  POW 

AMPAVE(J,3)  =  AMPAVE(J,3)  +  I'JylP**3 

AMPAVE(J,4)  =  AMPAVE(J,4)  +  POW* *2 

AMP  =  ALOG(AMP) 

CHIBAR(J,1)  =  CHIBAR(J,1)  +  AMP 

CHIBAR(J,2)  =  CHIBAR(J,2)  +  AMP**2 

TAU  =  TAUMIN  +  (J-l> ‘DELTAU 
AVENRG  =  AVENRG  +  POW 

AVETAU  -  AVETAU  +  POW*TAU 

SIGTAU  =  SIGTAU  +  POW*TAU**2 

END  IF 

30  CONTINUE 

AMP  =  CABS (HD) 

AMPAVE(JT,1)  *  AMPAVE(JT,1)  +  AMP 

AMPAVE(JT,2)  =  AMPAVE(JT,2)  +  AMP**2 

AMPAVE(JT,3)  =  AMPAVE(JT,3)  +  AMP**3 

AMPAVE(JT,4)  =  AMPAVE(JT,4)  +  AMP**4 

AMP  =  ALOG(AMP) 

CHIBAR(JT,1)  =  CHIBAR(JT,1)  +  AMP 

CHIBAR(JT,2)  =  CHIBAR(JT,2)  +  AMP**2 

40  CONTINUE 

******  measured  DECORRELATION  TIME 
C 

CALL  RHO (HB, NTIMES, XTAUO) 

TOMEAS  =  1.0E30 

IF (XTAUO  .GT.  0.0) TOMEAS  =  XTAU0*DELTAT 
C 

C******  MEASURED  MOMENTS  OF  AMPLITUDE  VERSUS  DELAY 
C 

DO  60  J=1,JT 

DO  50  M=l,  4 

AMPAVE(J,M)  =  AMPAVE (J,M) /NTIMES 
50  CONTINUE 

CHIBAR(J,I)  =  CHIBAR (J, 1) /NTIMES 
CHIBAR(J,2)  =  CHIBAR (J, 2) /NTIMES 
60  CONTINUE 

DO  70  J=l, NDELAY 
PJ  =  G(J) 
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Table  36.  MEASR2  Fortran  code  (Continued). 


IF (AMPAVE ( J, 2) **2  . GT .  0.0  .AND.  PJ»*2  .GT.  0.0)THEN 

S4 (J)  =  (AMPAVE (J, 4) -AMPAVE (J, 2) **2) /AMPAVE (J, 2) **2 

IF(S4(J)  .GT.  0.0)THEN 
S4  (J)  =  SORT  (S4  ( J)  ) 

ELSE 

S4 (J)  =  0.0 
END  IF 

AMPAVE (J,l)  =  AMPAVE (J, 1) / (0.5 *SQRT (PI) ) /SORT (PJ) 

AMPAVE (J, 2)  =  AMPAVE (J, 2) /PJ 

AMPAVE(J,3)  =  AMPAVE (J, 3) / (0.75*S0RT (PI) ) /SORT (PJ) **3 
AMPAVE  (J, 4)  =  AMPAVE (J, 4) /2 . 0/PJ**2 
AMP  =C.5*ALOG(PJ) 

CHIBAR(J,2)  =  (CHIBAR ( J, 2) -2 .0*CHIBAR(J, I) *AMP+AMP**2) / 
1  X 2 NORM 

CHIBAR(J,1)  =  (CHIBAR(J, 1) -AMP) /XINORM 

ELSE 

S4  (J)  =  0.0 
AMPAVE  (J,  1 )  =  0.0 
AMPAVE  (J, 2)  =0.0 
AMPAVE  (J, 3)  =  0.0 
AMPAVE (J, 4 )  =0.0 
CHIBAR(J, 1)  =0.0 
CHIBAR(J,2)  =  0.0 
END  IF 
70  CONTINUE 

PT  =  GRDPOW(l) 

S4 (JT)  =  SQRT( (AMPAVE (JT, 4) -AMPAVE (JT, 2) **2> /AMPAVE(JT, 2) »*2) 
AMPAVE  (JT,1)  =  AMPAVE(JT, 1) / (0.5*SQRT(PI) ) /SQRT(PT) 

AMPAVE(JT,2)  =  AMPAVE (JT, 2) /PT 

AMPAVE(JT,3)  =  AMPAVE (JT, 3) / (0. 75*SQRT (PI) ) /SORT (PT) **3 
AMPAVE(JT,4)  =  AMPAVE(JT, 4) /2.0/PT**2 
AMP  =  0.5*ALOG(PT) 

CHIBAR(JT,2)  =  (CHIBAR (JT, 2) -2 .0*CHIBAR(JT, 1) *AMP+AMP**2) / 

1  X2NORM 

CHIBAR  (JT,1)  =  (CHIBAR  (JT,  1 ) -AMP) /XINORM 
C 

C*.»*»*  measured  FREQUENCY  SELECTIVE  BANDWIDTH 
C 

AVETAU  =  AVETAU/AVENRG 

SIGTAU  =  SIGTAU/AVENRG  -  AVETAU* *2 

FOMEAS  =  1.0E30 

IF(SIGTAU  .GT.  0.0)F0MEAS  =  1 . 0/ (TWOPI *SQRT (SIGTAU) ) 

AVENRG  =  AVENRG 'NTIMES 
C 

WRITE  MEASURED  SIGNAL  PARAMETERS  VERSUS  DELAY 
C 

WRITE ( IWRITE, 2100) 

2100  FORMAT  (/2X,  ’ MOMENTS  OF  VOLTAGE  AMPLITUDE  VERSUS  DELAY’, /4X, 

1  'NORMALIZED  TO  ENSEMBLE  VALUES’, /4X, 

2  ■FOW(J)  =  ENSEMBLE  POWER  IN  J-TH  DELAY  BIN’,/4X, 

3  'J  =  T:  STATISTICS  OF  COMPOSITE  I GNAL  ’  ,  /  /  4X, 

4  ' J ■ , bX,  ■ POW ( J)  ■  ,  5X,  ' <A> ’ , 3X,  •<A-  > ’ , 3X,  ’ <A'3> ’ , 3X, 

5  ' <A'4>  ’  , 6X,  ’ S4  '  ,  3X,  ' <CHI>' ,  IX,  ’<CHI"2>’ ) 


Table  36.  MEASR2  Fortran  code  (Continued). 


DO  80  J=1,NDELAY 
JJ  =  J  -  1 

WRITE (I WRITE, 2110) JJ, G  (J) ,  (AMPAVE (J, M) , M=1 , 4) , S4 (J) , 

1  CHIBAR  (J, 1 )  , CHIBAR  (J, 2) 

2110  FORMAT (2X,I3,1X,1PE10.3,7{1X, 0PF7. 4) ) 

80  CONTINUE 

WRITE (IWRITE, 2111) GRDPOW (2) ,  (AMPAVE ( JT , M) , M=1 ,  4 ) , S 4 ( JT ) , 

1  CHIBAR (JT, 1) , CHIBAR(JT, 2) 

2111  FORMAT (4 X, 'T',1X,1PE10.3,7(1X, 0PF7 . 4) ) 

C******  MEASURED  REALIIATTON  PARAMETERS 
C 

TOTLOS  =  -10 . 0*ALOG10 (AVENRG) 

PO  =  1.0 
SLDB  =0.0 

WRITE (IWRITE, 2120) PO, AVENRG, SLCB , TOTLOS, FO , FOMEAS 

2120  FORMAT (,'2X, ' REALIZATION  SIGNAL  PARAMETERS 12X, 

1  'ENSEMBLE' , 6X, 'MEASURED' //4X, 

2  'MEAN  POWER  OF  REALIZATION  =  '.FlO  .a,F10.6/4X, 

3  'LOSS  (DB)  DUE  TO  MEAN  POWER  =  ’ , FI  0  .  ' , 4X, FI  0 . 3/ 4X , 

4  'FREOUENCY  SELECTIVE  BANDWIDTH  (HZ)  =  ’ , IPEIO . 3, 4X, El  0 . 3) 
WRITE (IWRITE, 2121 ) TAU0,TCMEAS, NO, XTAUO 

2121  FORMAT  (4X 

1  'DECORRELATION  TIME  (SEC)  =  ' , IPEl 0 . 3 , 4X, El  0 . 3/ 4X , 

2  'NUMBER  OF  SAMPLES  PER  DECORR.  TIME  =  ' , I 1 0 , 4X, OPFl 0 . 3 ) 
GRDLOS  =  -10 . O'ALOGIO (GRDPOW (1 ) ) 

WRITE (IWRITE, 2130) GRDPOW (1 ) , GRDLOS, GRDPOW ( 2) 

2130  FORMAT  (/2X,  ' MEAN  POWER  IN  GRID',//4X, 

1  'POWER  IN  DOPPLER  GIRD  =  •,F10.6/4X, 

2  'POWER  LOSS  OF  GRID  (DB)  =  ',F10.3/4X, 

3  'POWER  IN  DELAY  GRID  =  •,F10.6) 

RETURN 

END 
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Table  36.  READER  Fortran  code  -  CIRF  Version. 


SUBROUTINE  READER ( RESET, NDELAY , NTIMES, lUNIT, H) 


********************  VERSION  1.5  **♦  08  JAN  1990  *★!►***★★>»■*★★*********'*★***** 

CIRF  VERSION  ****.*»**.****************** 


****.★.*■*  „****************** 


THIS  SUBROUTINE  READS  A  COMPLEX  ARRAY  FROM  A  FILE  ON  UNIT=IUNIT 
ONE  DELAY  ARRAY  IS  READ  FOR  EACH  CALL  WITH  RESET  =  -FALSE. 

THE  INITIAL  HEADER  RECORDS  ARE  READ  WITH  RESET  =  .TRUE. 

INPUTS  FROM  ARGUMENT  LIST: 

RESET  =  LOGICAL  FLAG 

NDELAY  =  NUMBER  OF  DELAY  SAMPLES  IN  IMPULSE  RESPONSE  FUNCTION 
=  DIMENSION  OF  H  ARRAY 

NTIMES  =  NUMBER  OF  TIME  SAMPLES  IN  IMPULSE  RESPONSE  FUNCTION 
lUNIT  =  UNIT  OF  FILE 

OUTPUTS  TO  ARGUMENT  LIST: 

H  =  IMPULSE  RESPONSE  FUNCTION  ARRAY  (DIMENSION  NDELAY) 

COMMON  BLOCK  INPUTS: 

RDATAl  =  HEADER  RECORD 
PARAMETERS: 

MAXBUF  =  MAXIMUM  BUFFER  SIZE  (RECORD  SIZE  IN  FILE  =  MAXBUF  +  1) 

NDATAl  =  SIZE  OF  HEADER  RECORD  1 
NDATA2  =  SIZE  OF  HEADER  RECORD  2 

♦  ♦********.***.».****.***********************************★***■*****■************ 

INCLUDE  'CIRF.SIZ' 

COMMON/HEADER/RDATAl (NDATAl) , RDATA2 (NDATA2 ) 

COMPLEX  H (NDELAY) , BUFFER (MAXBUF/2) 

DIMENSION  HEADER (NDATAl) , DUMMY (NDATA2) 

LOGICAL  RESET 
CHARACTER* 80  IDENT 
C 

XF  RESET  =  .TRUE.  READ  HEADER  RECORDS  AT  BEGINNING  OF  FILE 

C 

IF (RESET) THEN 

REWIND  lONIT 

READ (lUNIT)  MDENT, IDENT (1 :MIN0 (MDENT, 80) ) 

READ(IUNIT)  MDATAl,  (HEADER ( 1 1 ) , 1 1  =  1 , MINO (MDATAl , NDATAl ) ) 

READ(IUNIT)  MDATA2,  (DUMMY  (I  I  >  ,  1 1  =  1 ,  MINO  (MDATA2 ,  NDAT.A2 )  ) 

MDATAl  =  MINO (MDATAl , NDATAl) 

DO  10  NN=1, MDATAl 
C 

C  FATAL  ERROR  IF  HEADER  RECORD  DOES  NOT  AGREE  WITH  RDATAl 

C 

IF (HEADER(NN)  .NE.  RDATAl (NN) ) THEN 

WRITE(*, 4000) NN, HEADER (NN) ,NN, RDATAl (NN) 


ooo  noo  non 


Table  36.  READER  Fortran  code  -  CIRF  Version  (Continued) 


c 

c 

c 

c 


4000  FORMAT (2X, 'FATAL  ERROR  REREADING  HEADER  RECORD', /2X, 

1  'WORD  ',12,'  OF  HEADER  RECORD  IS  ' , 1PE12 . 5/2X, 

2  'WORD  ',12,'  OF  HEADER  RECORD  SHOULD  BE  ',E12.5) 

STOP  '  READER  EXECUTION  TERMINATED' 

END  IF 

10  CONTINUE 

NTBUF  =  (MAXBUF/2) /NDELAY 
MAXCX  =  NTBUF*NDELAY 
NUMBF.r  =  0 
RESET  =  .FALSE. 

RETURN 
END  IF 

NUMBER  =  NUMBER  +  1 
COUNT  NUMBER  OF  CALLS  TO  PROGRAM 

FATAL  ERROR  IF  ATTEMPT  TO  READ  BEYOND  END-OF-FILE 

IF (NUMBER  .GT.  NTIMES)THEN 

write;*, 4001) NUMBER, NTIMES 

4001  FORMAT (2X, 'ATTEMPT  TO  READ  BEYOND  END-OF-FILE ', /2X , 

1  'TIME  INDEX  =  ' , I10/2X, 'MAX  INDEX  =  ',110) 

STOP  '  READER  EXECUTION  TERMINATED' 

END  IF 

READ  DATA  INTO  A  BUFFER 

IF (MOD (NUMBER, NTBUF)  . EQ .  1)THEN 

READ(IUNIT)  MDATAl, (HEADER (NN) , NN=1 , MINO (MDATAl , NDATAl ) ) 

READ (I  UN IT)  NRLWRD, 

1  (BUFFER (KK) , KK=1 , MINO (NRLWRD/2, MAXBUF/2) ) 

MDATAl  =  MINO (MDATAl , NDATAl) 

DO  30  NN=1, MDATAl 

FATAL  ERROR  IF  HEADER  RECORD  DOES  NOT  AGREE  WITH  RDATAl 

IF (HEADER (NN)  .NE.  RDATAl (NN) ) THEN 

write;*, 4000) NN, header (NN) ,NN, RDATAl (NN) 

STOP  ■  READER  EXECUTION  TERMINATED' 

END  IF 

30  CONTINUE 

END  IF 

READ  BUFFERED  DATA  INTO  ARRAY 

JOFFST  =  MOD ( (NUMBER-1) *NDELAY, MAXCX) 

DO  40  JJ=1,NDELAY 

H(JJ)  =  BUFFER (JOFFST+JJ) 

40  CONTINUE 
9^"^^  -.N 
END 
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Table  37.  WRITER  Fortran  code  -  CIRF  Version 


SUBROUTINE  WRITER (RESET, NDELAY , NTIMES, lUNIT, H> 

C 

C*********************  VERSION  1.3  ***  08  JAN  1990  **************************** 
C*********************  CIRF  VERSION  **************************** 

C 

C  THIS  SUBROUTINE  WRITES  A  COMPLEX  ARRAY  INTO  A  FILE  ON  UNIT=IUNIT 

C 

C 

C  INPUTS: 

C 

C  RESET  =  LOGICAL  FLAG  -  INITIALIZATION  IF  RESET  =  .TRUE. 

C  H  =  COMPLEX* 8  ARRAY 

C  NDELAY  =  NUMBER  OF  DELAY  SAMPLES  IN  IMPULSE  RESPONSE  FUNCTION 

C  NTIMES  =  NUMBER  OF  TIME  SAMPLES  IN  IMPULSE  RESPONSE  FUNCTION 

C  lUNIT  =  UNIT  NUMBER  OF  FILE 

C 

C  COMMON  BLOCK  INPUTS: 

C 

C  RDATAl  =  HEADER  RECORD 
C 

C  PARAMETERS: 

C 

C  MAXBUF  =  MAXIMUM  BUFFER  SIZE  (REi-ORD  SIZE  IN  FILE  =  MAXBUF  +  1) 

C  Ni^ATAl  =  SIZE  OF  HEADER  RECORD  1 

C  NDATA2  =  SIZE  OF  HEADER  RECORD  2 

C 

Q*****************************»**'«***********l»1^********'*********************** 

C 

SAVE 

INCLUDE  'CIRF.SIZ' 

LOGICAL  RESET 

COMMON/HEADER/RDATAl (NDATAl) , RDATA2 (NDATA2 ) 

COMPLEX  H (NDELAY) .BUFFER (MAXBUF/ 2) 

C 

C******  IF  reset  .EQ.  true  then  INITIALIZE 
C 

IF  (RESET) THEN 

NTBUF  -  (MAXBUF/2) /NDELAY 
NCXWRD  =  NTBUF ‘NDELAY 
NRLWRD  =  2 ‘NCXWRD 
NUMBER  =  0 
RESET  =  .FALSE. 

RETURN 
END  IF 
C 

C  COUNT  NUMBER  OF  CALLS  -  ONE  PER  TIME  SAMPLE 
C 

NUMBER  =  NUMBER  +  1 

JOFFST  "  MOD ( (NUMBER-1 ) ‘NDELAY, NCXWRD) 

WRITE  DELAY  SAMPLES  INTO  BUFFER 
C 

DO  20  JJ=1, NDELAY 

BUFFER (JOFFST+JJ)  =  H(JJ) 

20  CONTINUE 

IRITER  =  MOD (NUMBER, NTBUF) 
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Table  37.  WRITER  Fortran  code  -  CIRF  Version  (Continued) 


c 

C  WRITE  BUFFER  SAMPLES  INTO  FILE  WHEN  BUFFER  IS  FULL 
C 

IF(IRITER  .EQ.  0)THEN 

WRITE(IUNIT)  NDATAl, (RDATAl (NN) , NN=1 , NDATAI ) 

WRITE (lUNIT)  NRLWRD, (BUFFER (KK) , KK=1 , NCXWRD) 

END  IF 
C 

C  WRITE  BUFFER  SAMPLES  INTO  FILE  WHEN  AT  END  OF  REALIZATION 
C 

IF (NUMBER  .EQ.  NTIMES  .AND.  IRITER  . NE .  0)THEN 
LFTCX  =  MOD (NTIMES, NTBUF) *NDELAY 
LFTRL  =  2* LFTCX 

WRITE(IUNIT)  NDATAl, (RDATAl (NN) , NN=1 , NDATAl ) 

WRITE (lUNIT)  LFTRL, (BUFFER (KK) , KK=1 , LFTCX) 

END  IF 
RETURN 
END 


Table  38.  PIRF2  Fortran  code. 


FUNCTION  PIRF2  (TAU) 

C 

c* *«*».*»«**»•**«*•** »  VERSION  1.1  »**  13  MAY  1988  **************************** 

C 

C  POWER  IMPULSE  RESPONSE  FUNCTION  WITHOUT  ANTENNA  EFFECTS 
C  ISOTROPIC  SCATTERING  AND  FINITE  ALPHA 
C 

(^*»**********************«*»**«***»*********H.*1^.**,k**.**<.^***<,*********^***^t***^* 

c 

COMMON/REALZN/NDELAY, NTIMES, ALPHA, NO 
ARG  =  (1 . 0-ALPHA* *2*TA0) / (SORT (2 .0) *ALPHA) 

PIRF2  =  0. 5*EXP (0. 5/ALPHA* *2-TAU) *ERFC (ARG) 

RETURN 

END 
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Table  39.  FFT  Fortran  code. 


SUBROUTINE  FET  (A , M, N , I FFT ) 

,.*..***»»»»*.*..»***  VERSION  1.1  ***  30  JAN  1989  **************************** 

ROUTINE  TO  DO  AN  IN-PLACE  FAST  FOURIER  TRANSFORM 
REFERENCE;  A.  V.  OPPENHEIM  AND  R.  W.  SCHAFER 

DIGITAL  SIGNAL  PROCESSING,  PAGE  331 
PRENTICE-HALL,  1975 

INPUTS:  A  =  COMPLEX  ARRAY  OF  VALUES  TO  BE  TRANSFORMED 
N  =  NUMBER  OF  POINTS  =  2**M 

M  =  LOG  (BASE  2 )  OF  N 

IFFT  =  1,  DO  AN  FFT 

=  -1,  DO  AN  INVERSE  FFT 

=  -2,  DO  AN  INVERSE  FFT  AND  NORMALIZE  BY  1/NPOINTS 

PARAMETER  (P I =3 . 1 4 1 5 92 654 ) 

COMPLEX  A(N) ,U,W,T 
SGN  =  1.0 

IF  (IFFT  . LT .  0)  SGN  =  -1.0 
NV2  =  N/2 
NMl  =  N-1 
J  =  1 

DO  40  1=1, NMl 

IF  (I  .GE.  J)  GO  TO  10 
T  =  A(J) 

A(J)  =  A(I) 

A(I)  =  T 
10  K  =  NV2 

20  IF  (K  .GE.  J)  GO  TO  30 

J  =  J  -  K 
K  =  K/2 
GO  TO  20 

30  J  =  J  +  K 

40  CONTINUE 
DO  70  L=1,M 

LE  =  2  *  *  L 
LEI  =  LE/2 
U  =  (1 .0, 0 . 0) 

W  =  CMPLX (COS (PI/LEl ) , -SIN (PI*SGN/LE1) ) 

DO  60  J=1,LE1 

DO  50  I  =  J,N,LE 
IP  =  I  +  LEI 
T  =  A(IP) ‘U 
A(IP)  =  A(I)  -  T 
A(I)  =  A(I)  +  T 
50  CONTINUE 

U  =  U*W 

60  CONTINUE 

70  CONTINUE 

IF  (IFFT  .NE.  -2)  RETURN 
DO  80  1=1, N 

A  (I)  =  A  (I ) /FLOAT (N) 

80  CONTINUE 
RETURN 
END 
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Table  40.  PREPRC  Fortran  code 


o  o 


Table  42.  RHO  Fortran  code 


SUBROUTINE  RHO (V, NS, XL) 

C 

C.»*»**«****»********«  VERSION  1.2  ***  19  DEC  1988  **************************** 

C 

C  MEASURE  1/E  POINT  OF  AUTOCORRELATION  OF  VOLTAGE  V 
C 

c 

COMPLEX  V (NS) , CORR 
PARAMETER  (EINV  =  0.367879441) 

RHOl  =  1.0 
RH02  =  1.0 
DO  20  M=0, NS-1 

CORR  =  (0. 0,  0. 0) 

DO  10  N=1,NS-M 

CORR  =  CORR  +  V(N) »CONJG (V (N+M) ) 

10  CONTINUE 

IF(M  .EQ.  0) POWER  =  CABS (CORR) /FLOAT (NS) 

RH02  =  CABS (CORR) / (FLOAT (NS-M) *POWER) 

IF(RH02  .LT.  EINV) THEN 

XL  =  M  -  (EINV-RH02) / (RH01-RH02) 

RETURN 
END  IF 
RHOl  =  RH02 
20  CONTINUE 

XL  =  -9999.9 

RETURN 

END 


Table  43.  AWGN  Fortran  code. 


COMPLEX  FUNCTION  AWGN ( ISEED, JSEED) 

*********************  VERSION  1.1  ***  11  OCT  1988  **************************** 

C 

C  COMPLEX  AWGN  WITH  ZERO  MEAN  AND  UNITY  MEAN  POWER 
C 

Qii  *  k  *  *  It  *  *  *  it  *  *  it  *********  it  ******************  t  ***************  it  *  *  if  ***************  * 

C 

PARAMETER  (PI =3. 1 4 1 5 92 65 4 , TWOP I =2 . 0* P I ) 

PHI  =  TWOPI ‘RANDOM (ISEED, JSEED) 

AMP  =  SORT (-ALOG (1 . O-RANDOM (ISEED, JSEED) ) ) 

AWGN  =  CMPLX (AMP‘COS (PHI) , AMP*SIN(PHI) ) 

RETURN 

END 
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Table  44.  ERFC  Fortran  code 


FUNCTION  ERFC(X) 

C 

C*». **»*»**»***»»***».  VERSION  2.2  ***  19  DEC  1988  **************************** 

C 

C  COMPLEMENTARY  ERROR  FUNCTION  (ABRAMOWITZ  AND  STEGUN  7.1.26) 

C 

c 

PARAMETER  (P=0 . 3275911 ) 

PARAMETER  (A1 =0 . 254 829592 , A2=-0 . 2844 96736, A3=l . 421 4 1 37 4 1 , 

1  A4=-l . 453152027, A5=l .061405429) 

T1  =  ABS(X) 

T  =  1 .0/  (1.0  +  P'Tl) 

T1  =  EXP (-T1 *T1) 

POLY  =  T* (Al+T* (A2+T* (A3+T* (A4+T*A5) ) ) ) 

ERFC  =  Tl*POLY 

IF (X  .LT.  0.0) ERFC  =  2.0  -  ERFC 

RETURN 

END 


Table  45.  RANDOM  Fortran  code. 


FUNCTION  RANDOM ( ISEED, JSEED) 

C 

C - Version  1.2 - 23  Sep  1988  - 

C 

C  Machine- independent  uniformly  distributed  random  number  generator 

C 

C  Algorithm  is  adapted  from  the  following  -- 

C 

C  I  =  69069*1+1,  MODULO  2**32 

C  R  =  1/  (2**32) 

C 

C  The  same  result  is  obtained  on  all  machines,  regardless  of  word 

C  length,  by  using  two  16-bit  seeds  and  retaining  a  total  of  only 

C  24  bits  in  the  conversion  to  the  floating-point  random  number. 

C 

C  Inputs/outputs 

C  ISEED  =  high-order  part  of  random  number  seed  (16  bits  used) 

C  JSEED  =  low  -order  part  of  random  number  seed  (16  bits  used) 

C 

C  Output 

C  RANDOM  =  uniformly  distributed  random  number  (0  to  1) 


C 

C - 

C 

JB  =  3533*JSEED  +  1 

lA  =  3533*ISEED  +  JSEED  +  iSHFT ( JB, - 1 6 ) 

ISEED  =  lAND ( lA, 65535) 

JSEED  =  lAND (JB, 65535) 

RANDOM  =  PEAL ( ISHFT ( ISEED, 8) +ISHFT (JSEED, -8) ) /16777216 . 

RETURN 

END 
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Table  46.  SIMPSN  Fortran  code. 


FUNCTION  SIMPSN {FUNCT, A, B, INT) 

C 

C***»»*»»******»******  VERSION  1.0  *»*  25  NOV  1987  **************************** 

C 

C  SIMPSON'S  RULE  INTEGRATION  OF  FUNCTION  FUNCT  FROM  A  TO  B  WITH  INT  POINTS 
C 

c 

EXTERNAL  FUNCT 
IF(INT  .EQ.  0)THEN 

SIMPSN  =  0 .5* (A-B) * (FUNCT (A) +FUNCT (B) ) 

RETURN 
END  IF 

DX  =  (B-A)/INT 
DD  =  DX/3.0 
XX  =  A 

SUM  =  FUNCT (A)  +  FUNCT (B) 

IS  =  4 

DO  10  1=1, INT-1 
XX  =  XX  +  DX 
SUM  =  SUM  +  IS*FUNCT(XX) 

IF(IS  .EQ.  4)THEN 
IS  =  2 

ELSE 

IS  =  4 
END  IF 
10  CONTINUE 

SIMPSN  =  DD''SUM 

RETURN 

END 


D.2  “INCLUDE”  FILES. 

ACIRF  and  CIRF  “INCLUDE”  files,  listed  in  Tables  47  and  48  respectively,  are 
to  allow  the  user  to  easily  change  array  sizes.  The  files  contain  parameter  statements 
that  define  the  maximum  allow  values  for  the  number  of  antennas,  the  number  of  time 
samples,  the  number  of  delay  samples,  and  the  number  of  Kx  and  Ky  samples.  Other 
parameters  define  unformatted  output  file  record  sizes.  INCLUDE  file  parameters, 
their  functions,  and  limitations  are  summarized  in  Table  49. 

In  both  ACIRF  and  CIRF,  the  largest  array  is  dimensioned  mdelayXmtimes.  The 
user  may  want  to  reduce  both  of  these  parameters  to  allow  the  codes  to  run  efficiently 
on  computers  with  limited  random  access  memory. 

The  number  of  time  samples  may  not  be  less  than  1024,  corresponding  to 
102.4 To  realizations  with  10  samples  per  Tq.  Thus  the  minimum  value  of  mtimes  is 
1024.  If  ACIRF  is  run  with  multiple  antennas  with  different  pointing  directions,  then 
to  achieve  at  least  100  decorrelation  times  in  all  realizations,  it  may  be  necessary  to  use 
2048  time  samples.  For  the.se  cases,  the  minimum  value  of  mtimes  is  2048. 
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Table  47.  ACIRF  “INCLUDE”  file. 


FOR  THE  GENERAL  MODEL  (ACIRF)  MKX*MKY  MOST  BE  <=  MTIMES*MDELAy 

PARAMETER  (MDELAY=32, MTIMES=4096) 

PARAMETER  (MTENNA=8, MKX=64 , MKY=64) 

PARAMETER  (MAXBOF=40  96 , NDATA1=30 , NDATA2=32 ) 


Table  48.  CIRF  “INCLUDE”  file. 


PARAMETER  (MDELAY=64 , MTIMES=4096) 

PARAMETER  (MAXBOF=  4096, NDATA 1=30, NDATA2=32 ) 


Table  49.  ACIRF  and  CIRF  “INCLUDE”  file  parameters. 


Parameter 

Function 

Limitation 

MDELAY 

Maximum  number  of  delay 
samples 

3.7 

MTIMES 

Maximum  number  of  time 
samples 

>1024 

>  2048  (ACIRF  with  multiple 
antennas  pointing  in  different 
directions,  see  Eqn.  118) 

MTENNA 

Maximum  number  of  antennas 
(ACIRF  only) 

>  8  (there  is  little  advantage  in 
smaller  values) 

MKY 

MKX 

Maximum  number  of  Kx  or  Ky 
samples  (ACIRF  only) 

MKX,  MKY  >  32 
mkxXmky  <  mdelayXmtimes 
(see  Eqn.  Ill  for  limitations  with 
multiple  antennas) 

MAXBOF 

Maximum  record  size  in 
unformatted  file 

=  allowed  record  size 

NDATAl 

Size  of  first  header  record 
in  unformatted  file 

>30 

NDATA2 

Size  of  second  header  record 
in  unformatted  file 

>32 
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The  maximum  number  of  delay  samples  should  be  determined  by  the  minimum 
value  of  the  antenna  filtered  frequency  selective  bandwidth  and  the  delay  sample  size. 
Equation  126  may  be  used  to  estimate  the  maximum  required  number  of  delay 
samples. 

Because  ACIRF  uses  the  same  array  space  for  both  the  random  angular  spectrum 
of  impulse  response  function  and  the  impulse  response  function  itself,  the  additional 
requirement  that  mkxXmky  must  be  less  than  or  equal  to  mdelayXmtimes  is  also  imposed. 
The  minimum  value  for  mkx  and  mky  is  32.  A  larger  value  may  be  necessary  to  prevent 
aliasing  of  the  realizations  of  multiple  separated  antennas,  as  determined  by  Equation 
111. 
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APPENDIX  E 

FURTHER  EXAMPLE  INPUT  AND  FORMATTED  OUTPUT  FILES 

FOR  ACIRF  AND  CIRF 


Example  input  and  formatted  output  files  for  cases  not  included  in  Section  5  are 
presented  in  this  appendix.  These  examples  are  for  the  turbulent  model  in  ACIRF  and 
the  AWGN  channel  model,  the  turbulent  model,  and  the  flat  fading  model  in  CIRF. 

Table  50.  ACIRF  turbulent  model  example  input  file. 


GENERAL  MODEL  WITH  ANTENNAS  -  TURBULENT  MODEL  LIMIT 

******  CASE  NUMBER 

KASE 

1002/ 

******  ALPHANUMERIC  IDENTIFICATION  (80  CHARACTERS  OR  LESS  ENCLOSED  IN  ' 
GENERAL  MODEL  (TURBULENT)  WITH  ANTENNAS  -  ACIRF  3.5  USERS  GUIDE  EXAMPLE’ 
******  CHANNEL  PARAMETERS 

FO(HZ)  TAUO(S)  DLX(M)  DLY (M)  CXT  CYT 

1.0E5  3.0E-3  5.0  5.0  0.0  0.0/ 

******  ANTENNA  PARAMETERS 

NUMANT  FREQC(HZ) 

3  2.99793E9/ 

BEAMWIDTHS,  POSITIONS,  ROTATION  ANGLES,  AND  POINTING  ANGLES 
(ONE  LINE  FOR  EACH  ANTENNA) 

ROT  =  ROTATION  ANGLE 

ELV  =  ANTENNA  BEAM  POINTING  ANGLE  ELEVATION 
AZM  =  ANTENNA  BEAM  POINTING  ANGLE  AZIMUTH 

BWU(DEG)  BWV(DEG)  UPOS (M)  VPOS (M)  ROT (DEG)  ELV (DEG)  AZM (DEG) 


0.5896 
0. 5896 
0.5896 


0.5896 

0.5896 

0.5896 


-10.0 

0.0 

10.0 


•*  REALIZATION  PARAMETERS 


NDELAY  DELTAU(S) 
8  5.0E-7 


NTIMES 

1024 


0.2948 
0 . 0 
0.2948 


NKY  I SEED 

32  9771975 


180.0/ 

0.0/ 

0.0/ 
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Table  51b.  Example  ACIRF  formatted  output  for  the  turbulent  model 
(summary  of  measured  realization  statistics  for  antenna  1). 


MEASURED  PARAMETERS  FOR 

REALIZATION/ANTENNA  1 

MOMENTS  OF  VOLTAGE  AMPLITUDE  VERSOS  DELAY 

NORMALIZED  TO  ENSEMBLE 

VALUES 

POW(J)  =  ENSEMBLE  POWER  IN  J- 

IH  DELAY 

BIN 

J  =  T:  STATISTICS  OF  COMPOSITE  SIGNAL 

J  POW(J)  <A> 

<A^2> 

A 

> 

> 

U> 

V 

<A''4> 

S4 

<CHI>  <CHI^2> 

0  1.280E-01  1.0993 

1.2165 

1.3498 

1.4925 

1.0085 

0.6826  0.9116 

1  8.257E-02  1.0057 

0.9514 

0.8624 

0.7564 

0.8194 

0.8477  0.7875 

2  5.231E-02  1.0138 

0.9776 

0.8982 

0.7923 

0.8112 

0.9032  0.9923 

3  3.266E-02  0.9587 

0.9281 

0.9364 

0.9952 

1.1449 

1.0904  0.8904 

4  2.016E-02  0.9527 

0.8667 

0.7613 

0.6489 

0.8531 

1.0694  0.9068 

5  1.233E-02  1.0305 

1 . 0328 

1.0302 

1.0347 

0.9695 

0.8278  0.8915 

6  7.474E-03  1.0983 

1.2134 

1.3268 

1.4283 

0.9696 

0.7120  0.9672 

7  4.500E-03  0.958^ 

0.9411 

0.9448 

0.9610 

1.0817 

1.1750  1.0713 

T  3.400E-01  1.0608 

1.1216 

1.1941 

1.2873 

1.0231 

0.7650  0.8616 

REALIZATION  SIGNAL  PARAMETERS: 

ENSEMBLE 

MEASURED 

MEAN  POWER  OF  REALIZATION 

= 

0.346611 

0.359224 

TOTAL  SCATTERING  LOSS 

(DB) 

= 

4  . 

602 

4.446 

FREQUENCY  SELECTIVE  BANDWIDTH 

(KZ)  = 

1.574E+05 

1 . 888E+05 

DECORRELATION  TIME  (SEC) 

= 

3.000E 

-03 

2.903E-03 

NUMBER  OF  SAMPLES  PER 

DECORR . 

TIME  = 

10 

9.676 

MEAN  POWER  IN  GRID 

POWER  IN  KX-KY  GIRD 

-  0 

.339266 

POWER  LOSS  OF  GRID  (DB)  = 

0.093 

POWER  IN  DELAY  GRID 

0 

.  339998 
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Table  51c.  Example  ACIRF  formatted  output  for  the  turbulent  model 
(summary  of  measured  realization  statistics  for  antenna  2). 


MEASURED  PARAMETERS  FOR 

REALIZATION/ANTENNA  2 

MOMENTS  OF  VOLTAGE  AMPLITUDE  VERSUS  DELAY 

NORMALIZED  TO  ENSEMBLE  VALUES 

POW(J)  =  ENSEMBLE  POWER  IN  J-TH  DELAY 

BIN 

J  =  T:  STATISTICS  OF  COMPOSITE 

;  SIGNAL 

J  POW(J)  <A> 

<A^2> 

<A^3> 

<A^4> 

S4 

<CHI>  <CHI’'2> 

0  2.313E-01  0.9505 

0.9359 

0.9283 

0.9127 

1.0411 

1.3050  1.3497 

1  1.2I0E-01  0.9334 

0.8595 

0.7771 

0.6859 

0.9257 

1.2166  1.0518 

2  6.334E-02  0.9752 

0.9376 

0.8996 

0.8607 

0.9788 

1.0185  0.8737 

3  3.315E-02  1.0414 

1.0615 

1.0645 

1.0544 

0.9336 

0.8326  0.9493 

4  1.735E-02  0.9121 

0.8863 

0.9126 

0.9803 

1.2232 

1.4349  1.3369 

5  9.078E-03  1.0060 

1.0030 

1 . 0040 

1.0163 

1.0101 

0.9349  0.8904 

6  4.751E-03  1.1417 

1.2363 

1.2966 

1.3211 

0.8536 

0.3801  0.5895 

7  2.486E-03  1.1123 

1.1754 

1.1886 

1.1606 

0.8247 

0.5563  0.8461 

T  4.824E-01  0.9758 

0.9350 

0.8958 

0.8680 

0.9929 

1.0217  0.9025 

REALIZATION  SIGNAL  PARAMETERS: 

ENSEMBLE 

MEASURED 

MEAN  POWER  OF  REALIZATION 

0.485167 

0.448320 

TOTAL  SCATTERING  LOSS 

(DB) 

- 

3. 

141 

3.484 

FREQUENCY  SELECTIVE  BANDWIDTH 

(HZ)  = 

2.061E+05 

2.188E+05 

DECORRELATION  TIME  (SEC) 

= 

3.000E 

-03 

3.131E-03 

NUMBER  OF  SAMPLES  PER 

DECORR. 

TIME  = 

10 

10.438 

MEAN  POWER  IN  GRID 

POWER  IN  KX-KY  GIRD 

=  0. 

482635 

POWER  LOSS  OF  GRID  (DB)  = 

0.023 

POWER  IN  DELAY  GRID 

0. 

482437 
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Table  51d.  Example  ACIRF  formatted  output  for  the  turbulent  model 
(summary  of  measured  realization  statistics  for  antenna  3). 


MEASURED  PARAMETERS  FOR 

REALIZATION/ANTENNA  3 

MOMENTS  OF  VOLTAGE  AMPLITUDE  VERSUS  DELAY 

NORMALIZED  TO  ENSEMBLE 

VALUES 

POW(J)  =  ENSEMBLE  POWER  IN  J-TH  DELAY 

BIN 

J  -  T:  STATISTICS  OF  COMPOSITE  SIGNAL 

J  POW(J)  <A> 

<A'2> 

<A"3> 

<A^4> 

S4 

<CHI>  <CHI^2> 

0  1.280E-01  1.1089 

1.2327 

1.3620 

1.4830 

0.9757 

0.6545  0.9223 

1  8.257E-02  0.9485 

0.9129 

0.8868 

0.8634 

1.0354 

1.1949  1.0523 

2  5.231E-02  0.9583 

0.9342 

0.9130 

0.8855 

1.0146 

1.1954  1.1399 

3  3.266E-02  0.9576 

0.9347 

0.9489 

0.9959 

1.1314 

1.1209  0.9463 

4  2.016E-02  1.1255 

1.2746 

1.4073 

1.4981 

0.9188 

0.6631  1.0471 

5  1.233E-02  1.0846 

1.1957 

1.3215 

1.4516 

1.0152 

0.7534  0.9494 

6  7.474E-03  1.0000 

0.9834 

0. 9651 

0.9535 

0.9858 

0.9430  0.8873 

7  4.500E-03  1.0437 

1 . 0797 

1.1262 

1.1924 

1 . 0226 

0.7982  0.8422 

T  3.400E-01  0.9950 

0. 9902 

0.9762 

0.9469 

0.9651 

1.0231  1.0099 

REALIZATION  SIGNAL  PARAMETERS: 

ENSEMBLE 

MEASURED 

MEAN  POWER  OF  REALIZATION 

0.346611 

0.365189 

TOTAL  SCATTERING  LOSS 

(DB) 

= 

4  . 

602 

4.375 

FREQUENCY  SELECTIVE  BANDWIDTH 

(HZ)  = 

1.574E+05 

1.843E+05 

DECORRELATION  TIME  (SEC) 

3.000E 

-03 

3.124E-03 

NUMBER  OF  SAMPLES  PER 

DECORR. 

TIME  = 

10 

10.415 

MEAN  POWER  IN  GRID 

POWER  IN  KX-KY  GIRD 

0. 

339216 

POWER  LOSS  OF  GRID  (DB)  = 

0.094 

POWER  IN  DELAY  GRID 

0. 

339998 
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Table  51e.  Example  ACIRF  formatted  output  for  the  turbulent  model 
(ensemble  and  measured  antenna  output  cross  correlation 
coefficients). 


ENSEMBLE  ANTENNA 

OUTPUT  CROSS  CORRELATION 

AMPLITUDE  OF  CROSS  CORRELATION 

N 

AMP (N-1) 

AMP (N-2) 

AMP (N-3) 

1 

1 . 000000 

0. 131351 

0.000293 

2 

0.131351 

1 . 000000 

0.131351 

3 

0.000298 

0.131351 

1 . 000000 

PHASE 

(RADIANS) 

OF  CROSS 

CORRELATION 

N 

PHS (N-1) 

PHS (N-2) 

PHS (N-3) 

1 

0.000000 

-0.832184 

0.000000 

2 

0.832184 

0. 000000 

0.832184 

3 

0.000000 

0.832184 

C. 000000 

MEASURED  ANTENNA 

OUTPUT  CROSS  CORRELATION 

AMPLITUDE  OF  CROSS  CORRELATION 

N 

AMP (N-1) 

AMP (N-2) 

AMP (N-3) 

1 

1.000000 

0.246541 

0.069646 

2 

0.246541 

1.000000 

0.092264 

3 

0.069646 

0.092264 

1 . 000000 

PHASE 

(RADIANS) 

OF  CROSS 

CORRELATION 

N 

PHS (N-1) 

PHS (N-2) 

PHS (N-3) 

I 

0.000000 

-2.959489 

2.643855 

2 

•2.959489 

0.000000 

0.078934 

3 

2 . 643855 

0.078934 

0.000000 

FINAL  RANDOM  NUMBER  SEED  = 

235708183 
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Table  52.  Example  CIRF  input  file  for  AWGN  model 


CONSTANT  IMPULSE  RESPONSE  FUNCTION 

******  CASE  NUMBER 

KASE 

2000/ 

******  alphanumeric  identification  (80  CHARACTERS  OR  LESS  ENCLOSED  IN  '  ' ) 

CONSTANT  IMPULSE  RESPONSE  FUNCTION  -  ACIRF  3.5  USERS  GUIDE  EXAMPLE* 

******  CHANNEL  PARAMETERS 

IFADE  FO(HZ)  TAUO(S) 

0  1.0E30  1.0E30/ 

******  realization  PARAMETERS 

NDELAY  DELTAU(S)  NTIMES  ISEED  NO 

10  5.0E-7  1024  9771975  10/ 
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Table  53a.  Example  CIRF  formatted  output  file  for  AWGN  model 
(summary  of  input  and  ensemble  values). 


CIRF  CHANNEL  SIMULATION  VERSION  1.11 
CASE  NUMBER  2000 

CONSTANT  IMPULSE  RESPONSE  FUNCTION 
REALIZATION  IDENTIFICATION; 

.CONSTANT  IMPULSE  RESPONSE  FUNCTION  -  ACIRF  3.5  USERS  GUIDE  EXAMPLE 
CHANNEL  PARAMETERS 

FREQUENCY  SELECTIVE  BANDWIDTH  (HZ)  =  l.OOOE+30 
DECORRELATION  TIME  (SEC)  =  l.OOOE+30 

REALIZATION  PARAMETERS 

NUMBER  OF  DELAY  SAMPLES  =  1 

DELAY  SAMPLE  SIZE  (SEC)  =  5.000E-07 

NUMBER  OF  TEMPORAL  SAMPLES  -  1024 

NUMBER  OF  TEMPORAL  SAMPLES  PER  TAUO  =  10 

INITIAL  RANDOM  NUMBER  SEED  =  9771975 


Table  53b,  Example  CIRF  formatted  output  file  for  AWGN  model 
(summary  of  measured  realization  statistics). 


MEASURED  PARAMETERS  OF  REALIZATION 

MOMENTS  OF  VOLTAGE  AMPLITUDE  VERSUS  DELAY 
NORMALIZED  TO  ENSEMBLE  VALUES 
POW(J)  =  ENSEMBLE  POWER  IN  J-TH  DELAY  BIN 
J  =  T:  STATISTICS  OF  COMPOSITE  SIGNAL 


J 

POW(J) 

<A> 

<A"2> 

<A'3> 

A 

< 

< 

V 

S4 

<CHI> 

<CHI^2> 

0 

1 .OOOE+00 

1 . 1284 

1 . 0000 

0.7523 

0.5000 

0.0000 

0.0000 

0.0000 

T 

1 . OOOE+OO 

1.1284 

1 . 0000 

0.7523 

0.5000 

0.0000 

0.0000 

0.0000 

REALIZATION  SIGNAL  PARAMETERS;  ENSEMBLE  MEASURED 

MEAN  POWER  OF  REALIZATION  =  1.000000  1.000000 
LOSS  (DB)  DUE  TO  MEAN  POWER  =  0.000  0.000 
FREQUENCY  SELECTIVE  BANDWIDTH  (HZ)  =  l.OOOE+30  l.OOOE+30 
DECORRELATION  TIME  (SEC)  =  l.OOOE+30  l.OOOE+30 
NUMBER  OF  SAMPLES  PER  DECORR .  TIME  =  10  -9999.900 

MEAN  POWER  IN  GRID 

POWER  IN  DOPPLER  GIRD  =  1.000000 
POWER  LOSS  OF  GRID  (DB)  =  0.000 
POWER  IN  DELAY  GRID  =  1.000000 


FINAL  RANDOM  NUMBER  SEED 


9771975 


Table  54.  Example  CIRF  input  file  for  turbulent  model 


FREQUENCY  SELECTIVE  FADING  -  TURBULENT  MODEL  FOR  TEMPORAL  FLUCTUATIONS 

******  CASE  NUMBER 

KASE 

2003/ 

******  ALPHANUMERIC  IDENTIFICATION  (80  CHARACTERS  OR  LESS  ENCLOSED  IN  '  ' ) 

TURBULENT  MODEL  (1/F**4  DOPPLER  SPECTRUM)  -  ACIRF  3.5  USERS  GUIDE  EXAMPLE' 

******  CHANNEL  PARAMETERS 

IFADE  FO(HZ)  TAUO(S) 

3  1.0E5  l.OE-2/ 

******  REALIZATIONS  PARAMETERS 

NDELAY  DELTAU(S)  NTIMES  ISEED  NO 

12  5.0E-7  1024  9771975  10/ 


Table  55a.  Example  CIRF  formatted  output  file  for  turbulent  model 
(summary  of  input  and  ensemble  values). 


CIRF  CHANNEL  SIMULATION  VERSION 

1.11 

CASE  NUMBER  2003 

TEMPORAL  VARIATION  FROM  TURBULENT  MODEL 

REALIZATION  IDENTIFICATION: 

TURBULENT  MODEL  (1/F**4  DOPPLER 

SPECTRUM)  -  ACIRF  3.5  USERS  GUIDE  EXAMPLE 

CHANNEL  PARAMETERS 

FREQUENCY  SELECTIVE  BANDWIDTH 

(HZ)  = 

1 .OOOE+05 

DECORRELATION  TIME  (SEC) 

= 

1 .OOOE-02 

REALIZATION  PARAMETERS 

NUMBER  OF  DELAY  SAMPLES 

12 

DELAY  SAMPLE  SIZE  (SEC) 

5.000E-07 

NUMBER  OF  TEMPORAL  SAMPLES 

= 

1024 

NUMBER  OF  TEMPORAL  SAMPLES  PER 

TAUO  = 

10 

INITIAL  RANDOM  NUMBER  SEED 

s 

9771975 
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Table  55b.  Example  CIRF  formatted  output  file  for  turbulent  model 
(summary  of  measured  realization  statistics). 

MEASURED  PARAMETERS  OF  REALIZATION 

MOMENTS  OF  VOLTAGE  AMPLITUDE  VERSUS  DELAY 
NORMALIZED  TO  ENSEMBLE  VALUES 
POW(J)  =  ENSEMBLE  POWER  IN  J-TH  DELAY  BIN 
J  “  T:  STATISTICS  OF  COMPOSITE  SIGNAL 


J 

POW(J) 

<A> 

<A^2> 

<A"3> 

<A''4> 

S4 

<CHI>  <CHI''2> 

0 

2 . 696E-01 

0.9877 

0.9992 

1 . 0278 

1.0748 

1.0738 

1 . 1067 

1.1225 

1 

1 . 969E-01 

0.9754 

0.9509 

0.9255 

0.8926 

0. 9872 

1.0625 

0.9526 

2 

1 .438E-01 

1.0386 

1.0704 

1 . 1089 

1.1563 

1.0091 

0.8190 

0.8479 

3 

1 .051E-01 

1.0468 

1 .1132 

1.1853 

1.2542 

1.0120 

0.8976 

1.0554 

4 

7.673E-02 

1.0363 

1.0904 

1.1480 

1.1990 

1.0084 

0.9302 

1.0605 

5 

5.604E-02 

0.8994 

0.8016 

0.6955 

0.5862 

0.9080 

1.3973 

1.2260 

6 

4.093E-02 

0. 9553 

0. 9342 

0.9197 

0.9022 

1.0332 

1.2135 

1.1318 

7 

2 . 990E-02 

1.0236 

1.0220 

0.9995 

0.9632 

0.9189 

0.8916 

0.9646 

8 

2.184E-02 

1 .1129 

1.2397 

1 . 3807 

1.5301 

0. 9956 

0.6246 

0.8783 

9 

1 .595E-02 

I.OIJO 

1.0241 

1.0563 

1.1145 

1.0608 

0.9110 

0.8723 

10 

1 .165E-02 

0.9946 

0.9360 

0.8451 

0.7375 

0.8268 

0.8957 

0.8183 

11 

8 . 509E-03 

1.0026 

0.9930 

0.9678 

0.9285 

0.9399 

0.9693 

0.9444 

T 

9.769E-01 

0.9690 

0.9430 

0.9181 

0.8869 

0.9974 

1 . 1070 

1.0150 

REALIZATION  SIGNAL  PARAMETERS: 

ENSEMBLE 

MEASURED 

MEAN  POWER  OF 

REALIZATION 

1.000000 

0.987661 

LOSS  (DB)  DUE 

TO  MEAN 

POWER 

- 

0. 

000 

0.054 

FREQUENCY  SELECTIVE  BANDWIDTH 

(HZ)  - 

1  .OOOE+05 

1 .245E+05 

DECORRELATION 

TIME  (SEC) 

- 

1 .OOOE 

-02 

1 .056E-02 

NUMBER  OF  SAMPLES  PER 

CECORR. 

TIME  = 

10 

10.564 

MEAN  POWER  IN  GRID 

POWER  IN  DOPPLER  GIRD  =  0.976946 

POWER  LOSS  OF  GRID  (DB)  -  0,101 

POWER  IN  DELAY  GRID  =  0.976946 

FINAL  RANDOM  NUMBER  SEED  =  1368273319 
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Table  56.  Example  CIRF  input  file  for  flat  fading  model. 


;  FLAT  RAYLEIGH  FADING 

;******  CASE  NUMBER 

;  KASE 

2004/ 

.*»****  alphanumeric 

IDENTIFICATION  (80 

CHARACTERS  OR  LESS  ENCLOSED  IN 

’) 

'FLAT  FADING  (1/F**4 

DOPPLER  SPECTRUM)  - 

ACIRF  3.5  USERS  GUIDE  EXAMPLE' 

;******  CHANNEL  PARAMETERS 

;  IFADE  FO(HZ) 

TAUO (S) 

4  1.0E5 

1 . OE-2/ 

;******  REALIZATIONS 

PARAMETERS 

;  NDELAY  DELTAU(S) 

NTIMES 

I  SEED 

NO 

1  2.5E-7 

1024 

9771975 

10/ 

Table  57a.  Example  CIRF  formatted  output  file  for  flat  fading  model 
(summary  of  input  and  ensemble  values). 


CIRF  CHANNEL  SIMULATION  VERSION  1.11 
CASE  NUMBER  2004 

FLAT  FADING  WITH  1/F**4  DOPPLER  SPECTRUM 
REALIZATION  IDENTIFICATION: 

FLAT  FADING  (1/F**4  DOPPLER  SPECTRUM)  -  ACIRF  3.5  USERS  GUIDE  EXAMPLE 
CHANNEL  PARAMETERS 

FREQUENCY  SELECTIVE  BANDWIDTH  (HZ)  =  l.OOOE+30 
DECORRELATION  TIME  (SEC)  =  l.OOOE-02 

REALIZATION  PARAMETERS 
NUMBER  OF  DELAY  SAMPLES 

DELAY  SAMPLE  SIZE  (SEC)  =  2 

NUMBER  OF  TEMPORAL  SAMPLES 
NUMBER  OF  TEMPORAL  SAMPLES  PER  TAUO  = 

INITIAL  RANDOM  NUMBER  SEED 


1 

.500E-07 

1024 

10 

9771975 
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Table  57b.  Example  CIRF  formatted  output  file  for  flat  fading  model 
(summary  of  measured  realization  statistics). 


MEASURED  PARAMETERS  OF  REALIZATION 

MOMENTS  OF  VOLTAGE  AMPLITUDE  VERSUS  DELAY 
NORMALIZED  TO  ENSEMBLE  VALUES 
POW(J)  =  ENSEMBLE  POWER  IN  J-TH  DELAY  BIN 
J  =  T:  STATISTICS  OF  COMPOSITE  SIGNAL 


J 

POW(J) 

<A> 

<A'-2> 

<A''3> 

A 

< 

< 

V 

S4 

<CHI> 

<CHI''2> 

0 

1 . OOOE+00 

0.9753 

0.9418 

0.8988 

C.8471 

0.9540 

1.0720 

1.0081 

T 

1 .OOOE+00 

0.9753 

0.9418 

0.8988 

0.8471 

0.9540 

1.0720 

1.0081 

REALIZATION  SIGNAL  PARAMETERS:  ENSEMBLE  MEASURED 

MEAN  POWER  OF  REALIZATION  =  1.000000  0.941754 

LOSS  (DB)  DUE  TO  MEAN  POWER  =  0.000  0.261 

FREQUENCY  SELECTIVE  BANDWIDTH  (HZ)  =  l.OOOE+30  1.056E+09 

DECORRELATION  TIME  (SEC)  =  l.OOOE-02  9.724E-03 

NUMBER  OF  SAMPLES  PER  DECORR .  TIME  =  10  9.724 

MEAN  POWER  IN  GRID 

POWER  IN  DOPPLER  GIRD  =  1.000000 

POWER  LOSS  OF  GRID  (DB)  =  0.000 

POWER  IN  DELAY  GRID  =  1.000000 

FINAL  RANDOM  NUMBER  SEED  =  -226955153 


APPENDIX  F 
LIST  OF  ACRONYMS 


ACIRF 

dB 

CIRF 

DFT 

DNA 

FFT 

FSK 

GPSD 

MHz 

MRC 

PSD 

PSK 

RCIRF 

RF 


Antenna/channel  impulse  response  Unction 
Decibel 

Channel  impulse  response  function 
Discrete  Fourier  transform 
Defense  Nuclear  Agency 
Fast  Fourier  transform 
Frequency-shift  keying 
Generalized  power  spectral  density 
Million  Hertz  (10^  cycles  per  second) 
Mission  Research  Corporation 
Power  spectral  density 
Phase-shift  keying 

Radar/channel  impulse  response  function 
Radio  frequency 
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APPENDIX  G 
LIST  OF  SYMBOLS 


Symbol  Page 

(where  first  used) 

A(p)  =  Aperture  weighting  function  27 

a  =  Amplitude  of  the  impulse  response  function  97 

oj  =  Amplitude  of  the  delay  bin  realization  65 

Ax  =  Antenna  pointing  factor  40 

Ay  =  Antenna  pointing  factor  40 

Oq  Beamwidth  scale  factor  21 

B  =  Geomagnetic  field  (see  Fig.  1)  4 

C  =  Magnitude  of  space-time  correlation  coefficient  25 

Cpt  =  p-direction  space-time  correlation  coefficient  30 

Cqt  =  <7-direction  space-time  correlation  coefficient  30 

Cxt  =  jc-direction  space-time  correlation  coefficient  4 

Cyt  =  y-direction  space-time  correlation  coefficient  4 

cos  (jc)  =  Cosine  function  5 


D  =  Circular  antenna  diameter  14 

d  =  Differential  operator  1 

=  Rectangular  antenna  size  in  (^-direction  1 5 

dx  -  Maximum  j:-direction  separation  of  antennas  42 

dy  =  Maximum  y-direction  separation  of  antennas  42 


E  =  Complex  envelope  of  received  electric  field  3 

e  =  Base  of  natural  logarithms  (2.71 828  ")  4 

EA(kx,ky)  =  Mean  power  in  an  angle  grid  cell  at  antenna  output  75 

EAikx,ky,kD)  =  Mean  power  in  an  angle-Doppler  frequency  grid  cell  at 

antenna  output  34 

Eoiko)  =  Mean  power  in  a  Doppler  frequency  grid  cell  35 

Ei{kx,ky)  =  Mean  incident  power  in  an  angle  grid  cell  77 

EKc{kx,ky)  =  Mean  power  in  an  angle  grid  cell  35 

EKD{kx,ky,kD)  =  Mean  signal  power  in  an  angular-Doppler  grid  cell  34 

Em(kx,ky)  =  Mean  power  in  a  A'jc-A'y  grid  cell  for  the  antenna  66 

Ep(kp)  =  Mean  signal  power  in  a  Kp  grid  cell  35 

Eq(kq)  =  Mean  signal  power  in  a  Kq  grid  cell  35 

E\{kx,ky)  =  Mean  power  of  angular  grid  cell  for  algorithm  1  77 

E2{kx,ky)  =  Mean  power  of  angular  grid  cell  for  algorithm  2  77 
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LIST  OF  SYMBOLS  (Continued) 


Symbol 

erf  (jc) 
erfc  (x) 
erf^l  (x) 
exp  (x) 

FiP) 

m 

fA 

fo 

G(Ks_) 

g(Ks.) 

GmiKi) 

G^(9) 

GuiO) 

Gm 

HiOjj) 

h(p,x,t) 

hit) 

hkit) 

hir,t) 

'kiKj^,T,Q}D) 

hAipo,T,t) 


int  (jc) 

j 

Jxix) 

K 

kp 

kp 

Kp 

kp 

f^p.max 


Page 


=  Error  function  41 

=  Complementary  error  function  35 

=  Inverse  error  function  39 

=  Exponential  function  4 

=  Cumulative  distribution  of  power  P  99 

=  Probability  density  function  of  amplitude  a  97 

=  Frequency  selective  bandwidth  at  antenna  output  1 7 

=  Channel  frequency  selective  bandwidth  7 

=  Antenna  power  beam  pattern  1 0 

=  Antenna  voltage  beam  pattern  28 

=  Power  beam  pattern  of  the  mth  antenna  65 

=  Antenna  power  beam  pattern  in  the  (^-direction  1 5 

=  Antenna  power  beam  pattern  in  the  u-direction  14 

=  Antenna  power  beam  pattern  in  the  v-direction  1 4 

=  Channel  transfer  function  1 

=  Channel  impulse  response  function  at  position  p  27 

=  Channel  impulse  response  function  for  flat  fading  96 

=  kth  channel  impulse  response  function  for  flat  fading  98 

=  Channel  impulse  response  function  1 

=  Fourier  transform  of  the  impulse  response  function  28 

=  Impulse  response  function  at  antenna  output  27 

=  VT  4 

=  Integer  function  (integer  part  of  argument)  32 

=  Index  of  delay  grid  37 

=  Bessel  function  of  first  order  14 

=  Component  of  Ki  vector  8 

=  Doppler  frequency  grid  index  34 

=  Frequency  grid  index  48 

=  Component  of  in  p-q-z  coordinate  system  30 

=  Index  of  Kp  grid  35 

=  Limit  of  Kp  grid  84 
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LIST  OF  SYMBOLS  (Continued) 


Symbol 

Page 

f^p,stari 

=  Starting  point  of  power  centroid  line 

91 

f^p,stcirt 

=  Starting  index  of  power  centroid  line 

93 

f^pMop 

=  Stopping  point  of  power  centroid  line 

91 

kp.stop 

=  Stopping  index  of  power  centroid  line 

93 

KpA 

=  Limit  of  the  Kp-Kg  region  for  calculation  of  Ekc 

88 

Kp,2 

=  Limit  of  the  Kp-Kg  region  for  calculation  of  Ekc 

88 

^P3 

=  Limit  of  the  Kp-Kg  region  for  calculation  of  Ekc 

88 

^P,4 

=  Limit  of  the  Kp-Kg  region  for  calculation  of  Ekc 

88 

Kg 

=  Component  of  in  p-q-2  coordinate  system 

30 

kq 

=  Index  of  Kg  grid 

35 

Kq,L 

=  Power  centroid  line  Kg  value 

94 

kq,L 

=  Power  centroid  line  Kg  index 

94 

Kqjnax 

=  Limit  of  Kg  grid 

84 

kqjnax 

-  Maximum  Kg  index 

93 

Kq,start 

=  Starting  point  of  power  centroid  line 

91 

Kqjiop 

=  Stopping  point  of  power  centroid  line 

91 

KqA 

=  Limit  of  the  Kp-Kg  region  for  calculation  of  Ekc 

88 

Kq,2 

=  Limit  of  the  Kp-Kg  region  for  calculation  of  Ekc 

88 

^q3 

=  Limit  of  the  Kp-Kg  region  for  calculation  of  Ekc 

88 

Kq,4 

=  Limit  of  the  Kp-Kg  region  for  calculation  of  Ekc 

88 

kf 

=  Index  of  time  grid 

37 

Ku 

=  Component  of  /(i  in  m-v-z  coordinate  system 

14 

Kv 

=  Component  of  /(i  in  m-v-z  coordinate  system 

14 

Kx 

=  Component  of  /(i  in  x-y-z  coordinate  system 

6 

kx 

=  Index  of  Kx  grid 

34 

K'x 

=  Dummy  Kx  variable 

33 

Kx,max 

=  Limit  of  Kx  grid 

41 

Kxa 

=  Limit  of  the  Kx-Ky  region  for  calculation  of  Ekc 

88 

kxA 

=  Lower  limit  of  Kx  grid  index 

87 

Kx,2 

=  Limit  of  the  Kx-Ky  region  for  calculation  of  Ekc 

88 

l^x,2 

-  Upper  limit  oi  Kx  grid  index 

87 

Ky 

=  Component  of  /(i  in  x-y-z  coordinate  system 

6 

ky 

=  Index  of  Ky  grid 

34 

K'y 

=  Dummy  Ky  variable 

33 

Ky,max 

=  Limit  of  Ky  grid 

41 
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LIST  OF  SYMBOLS  (Continued) 


Symbol  Page 

Ky,i  =  Limit  of  the region  for  calculation  of  88 

ky^x  -  Lower  limit  of  Ky  grid  index  87 

Ky^2  =  Limit  of  the  Kx~Ky  region  for  calculation  of  Ekc  88 

ky^2  -  Lpper  limit  of  Ky  grid  index  87 

Kq  -  Antenna  pointing  direction  vector  10 

Kq  =  Magnitude  of  antenna  pointing  direction  vector  76 

A'o,^  =  Antenna  pointing  direction  vector  for  antenna  65 

Kqx  =  jc-component  of  in  Jt-y-z  coordinate  system  14 

Koy  -  y-component  of  Kq  in  x-y-z  coordinate  system  14 

Ki_  =  K  vector  for  positions  in  plane  normal  to  line-of-sight  6 

K'x,  =  Dummy /(Ti  vector  28 

L  -  Scattering  loss  (in  decibels)  16 

=  Decorrelation  distance  at  antenna  output  76 

H/xx  -  x-direction  decorrelation  distance  at  antenna  output  19 

H/xy  =  y-direction  decorrelation  distance  at  antenna  output  19 

Qp  =  />-direction  decorrelation  distance  30 

Hq  =  ^-direction  decorrelation  distance  30 

Hx  =  Channel  x-direction  decorrelation  distance  4 

Hy  =  Channel  y-direciion  decorrelation  distance  4 

Hq  =  Minimum  channel  decorrelation  distance  5 

In  (x)  =  Natural  logarithm  14 

logio(x)  =  Base  10  logarithm  16 

M{o))  =  Spectrum  of  transmitted  modulation  47 

m{t)  =  Transmitted  modulation  1 

max  (x,y)  =  Maximum  function  (equal  to  the  larger  of  x  and  y)  42 

rtiQ  =  Dummy  Doppler  frequency  index  85 

min  (x,y)  =  Minimum  function  (equal  to  the  smaller  of  x  and  y)  93 

mx  =  x-direction  Doppler  shift  index  32 

Mxiko)  =  Cumulative  x-direction  Doppler  shift  index  85 

my  =  y-direction  Doppler  shift  index  32 

Myiko)  =  Cumulative  y-direction  Doppler  shift  index  85 

Nd  -  Number  of  Doppler  frequency  grid  cells  34 

!^D,min  =  Minimum  required  number  of  Doppler  frequency  grid  cells  44 

Nf  =  Number  of  frequency  samples  48 

Nt  =  Number  of  time  samples  37 
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LIST  OF  SYMBOLS  (Continued) 


Symbol 

Page 

Nx 

=  Number  of  Kx  grid  cells 

34 

Ny 

=  Number  of  Ky  grid  cells 

34 

Nr 

=  Number  of  delay  samples 

37 

No 

=  Number  of  samples  per  decorrelation  time 

40 

P 

=  Instantaneous  power  level  of  a  realization 

99 

Pa 

=  Mean  power  in  the  GPSD  at  the  output  of  an  antenna 

16 

Pj 

=  Mean  power  in  delay  grid  cell 

45 

Pjjn 

=  Mean  power  in  delay  grid  cell  for  antenna 

65 

Pk 

=  Mean  power  in  angular  grid 

76 

P  K,m 

=  Mean  power  in  angular  grid  for  antenna 

66 

Po 

=  Mean  power  in  the  GPSD 

7 

Px 

=  Mean  power  in  delay  grid 

45 

P  x,m 

=  Mean  power  in  delay  grid  for  antenna 

66 

Q 

=  Antenna  filtering  factor  for  isotropic  scattering 

21 

Q 

=  Axial  ratio  of  striations 

5 

Qp 

=  Pointing  term  in  filtered  frequency  selective  bandwidth 

17 

Qpx 

=  Kqx  term  in  filtered  frequency  selective  bandwidth 

17 

Qpy 

=  Kay  term  in  filtered  frequency  selective  bandwidth 

17 

Qpxy 

=  KoxRoy  term  in  filtered  frequency  selective  bandwidth 

17 

Qx 

=  Antenna  filtering  factor 

16 

Qy 

=  Antenna  filtering  factor 

16 

Qxy 

=  Antenna  filtering  factor 

16 

Qo 

=  Antenna  filtering  factor 

16 

r{t) 

=  Received  signal  at  time  t 

1 

r(r,t) 

=  Received  signal  at  delay  rand  time  t 

48 

Rc 

=  Chip  rate 

48 

S(fc) 

=  One-dimensional  GPSD  versus  KxHx,  RyJ^y,  or  TqCOd 

39 

S(K±,t,coo) 

=  Generalized  power  spectral  density  (GPSD) 

6 

Sa(Ri,t,Q}d) 

=  GPSD  of  signal  at  output  of  an  antenna 

10 

Sa(Rx) 

=  Angular  spectrum  at  antenna  output 

40 

Sa(t) 

=  Delay  spectrum  at  antenna  output 

45 

^A,m('^) 

=  Delay  spectrum  at  output  of  antenna 

65 

Sa(O)d) 

=  Doppler  frequency  spiectrum  at  antenna  output 

43 

Sd(o}d) 

=  Doppler  frequency  spectrum  of  the  GPSD 

6 

Sk(Kl) 

=  Angular  spectrum  of  the  GPSD 

75 
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LIST  OF  SYMBOLS  (Continued) 


Symbol 

Skc(Ki_) 

Skc(Kp) 

SKDif^X,0)D) 

Sks{Kx) 

SKTiKur) 

SrD(T,0)D) 

S4 

sign  (x) 
sin  (x) 

t 

T 

Tdurif^) 

Ts 

Tsep(P) 

h 

tan  (x) 
tan"'  (x) 

A 

u 

Mo 

A 

V 

^0 

X 

A 

X 

X() 

X\ 


A 

yo 

y\ 

yi 

A 

Z 


Page 


=  Angular  spectrum  used  in  channel  modeling  32 

=  One-dimensional  angular  spectrum  used  in  channel  modeling  84 

=  Angle-Doppler  frequency  spectrum  of  the  GPSD  29 

=  Doppler  shifted  version  of  Skc{I^i)  33 

=  Angle-delay  spectrum  of  the  GPSD  6 

=  Delay-Doppler  scattering  function  10 

=  Scintillation  index  65 

=  Sign  function  (equal  to  the  sign  of  argument)  93 

=  Sine  function  4 

=  Relative  time  1 

=  Chip  duration  47 

=  Duration  of  fades  below  the  power  level  P  101 

=  Sample  period  of  realization  96 

=  Separation  of  fades  below  the  power  level  P  101 

=  Time  1  3 

=  Time  2  3 

=  Tangent  function  30 

=  Inverse  tangent  function  83 

=  Unit  vector  in  antenna  u-v~z  coordinate  system  (see  Fig.  5)  1 3 

=  u-position  of  antenna  in  u-v-z  coordinate  system  57 

=  Unit  vector  in  antenna  u-v-z  coordinate  system  (see  Fig.  5)  13 

=  v-position  of  antenna  in  u-v-z  coordinate  system  57 

=  Relative  jc-coordinate  in  plane  normal  to  line-of-sight  3 

=  Unit  vector  in  scattering  propagation  system  (see  Fig.  1)  4 

=  ^-component  of  vector  po  32 

=  j:-coordinate  of  position  1  in  plane  normal  to  line-of-sight  3 

=  x-coordinate  of  position  2  in  plane  normal  to  line-of-sight  3 

=  Relative  y-coordinate  in  plane  normal  to  line-of-sight  3 

=  Unit  vector  in  propagation  coordinate  system  (see  Fig.  1 )  5 

=  y-component  of  vector  Po  32 

=  y-coordinate  of  position  1  in  plane  normal  to  line-of-sight  3 

=  y-coordinate  of  position  2  in  plane  normal  to  line-of-sight  3 

=  Unit  vector  pointing  along  line-of-sight  (see  Fig.  1)  4 
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LIST  OF  SYMBOLS  (Continued) 


Symbol 

Page 

a 

=  Delay  parameter  in  the  GPSD 

4 

OLu 

=  M-direction  antenna  beam  pattern  parameter 

14 

=  v-direction  antenna  beam  pattern  parameter 

14 

=  ^-direction  antenna  beam  pattern  parameter 

15 

r{x,y,(o,t) 

=  Two-position,  two-frequency,  two-time  mutual  coherence 

function 

3 

y 

=  Euler’s  constant  (0.5772157 •••) 

66 

FAit) 

=  Temporal  coherence  function  at  antenna  output 

18 

FaM 

=  Spatial  coherence  function  for  x-direction  at  antenna  output 

18 

FAiy) 

=  Spatial  coherence  function  for  y-direction  at  antenna  output 

19 

Hx) 

=  Dirac  delta-function 

7 

^m,n 

=  Kronecker  delta  symbol 

38 

AKp 

=  Angular  grid  Kp  cell  size 

36 

AKq 

=  Angular  grid  Kq  cell  size 

36 

AKx 

=  Angular  grid  Kx  cell  size 

32 

AKy 

=  Angular  grid  Ky  cell  size 

32 

At 

=  Time  sample  size 

37 

At 

=  Delay  sample  size 

37 

ACO 

=  Frequency  grid  sample  size 

48 

Awd 

=  Doppler  frequency  grid  cell  size 

34 

ex 

=  Kx  grid  shift  residual 

32 

£y 

=  Ky  grid  shift  residual 

32 

Co 

=  Fraction  of  signal  power  in  a  grid 

39 

e 

=  Angle  measured  from  line-of-sight 

8 

=  Rotation  angle  between  x-y-z  and  p-q-z  coordinate  systems 

30 

Ox 

=  Scattering  angle  about  the  propagation  x-axis 

6 

9y 

=  Scattering  angle  about  the  propagation  y-axis 

6 

=  Pointing  direction  elevation  angle  (see  Fig.  5) 

13 

fib 

=  Antenna  3-dB  beamwidth 

14 

=  Antenna  3-dB  beamwidth  about  (^-direction 

14 

K 

=  Normalized  variable  {KxQx,  KyUy,  or  ToCUd) 

39 

^max 

=  Maximum  value  of  jc  variable 

39 

^D,max 

=  Maximum  value  of  k  for  Doppler  frequency  grid 

40 

^K^max 

=  Maximum  value  of  k  for  angular  grids 

40 
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Symbol  Page 

A  =  RF  wavelength  6 

Ax  =  Asymmetry  factor  4 

Ay  =  Asymmetry  factor  4 

-  First  moment  of  amplitude  for  the  realization  98 

^  =  Arbitrary  direction  in  plane  normal  to  line-of-sight  14 

Ia/  =  Complex,  normally-distributed,  zero-mean, 

unity-power  random  number  31 

^ux  =  Uniformly  distributed  random  number  on  the  interval  [0,1)  37 

=  Uniformly  distributed  random  number  on  the  interval  [0,1)  37 

=  Uniformly  distributed  random  number  on  the  interval  [0,1)  38 

^U2  -  Uniformly  distributed  random  number  on  the  interval  [0,1)  38 

K  =  Pi  (3.141592654  -)  3 

p  =  Two-dimensional  position  vector  in  the  plane  normal  to 

line-of-sight  27 

Po  =  Antenna  position  in  plane  normal  to  line-of-sight  27 

Oe  =  Angle-of-arrival  jitter  standard  deviation  8 

Ogx  -  Angle-of-arrival  jitter  standard  deviation  about  the  x-axis  8 

Gey  =  Angle-of-arrival  jitter  standard  deviation  about  the  y-axis  8 

Gj  =  Time-of-arrival  jitter  standard  deviation  7 

T  =  Delay  (relative  time-of-arrival)  1 

r'  =  Dummy  delay  28 

Ta  =  Decorrelation  time  at  antenna  output  1 8 

'^A,max  =  Maximum  Ta  for  all  antennas  44 

TA,min  =  Minimum  Ta  for  all  antennas  43 

Tmax  =  Maximum  required  value  of  delay  grid  45 

Tmin  =  Minimum  delay  for  frozen-in  model  without  antennas  70 

to  =  Channel  decorrelation  time  4 

0  =  Penetration  angle  (see  Fig.  1)  4 

0Q  =  Pointing  direction  azimuth  angle  (see  Fig.  5)  1 3 

•P  =  Rotation  angle  (see  Fig.  5)  1 3 

X  =  Log  amplitude  65 


196 


LIST  OF  SYMBOLS  (Continued) 


Symbol 

Page 

0) 

=  Radian  frequency 

1 

COa 

=  Mean  Doppler  shift  at  antenna  output 

18 

(Ocoh 

=  Coherence  bandwidth 

4 

(Od 

=  Doppler  radian  frequency 

6 

(o'd 

=  Dummy  Doppler  radian  frequency 

28 

^D,max 

=  Limit  of  cod  grid 

43 

Oi\ 

=  Radian  frequency  1 

3 

Oh 

=  Radian  frequency  2 

3 

oo 

=  Infinity 

2 
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ATTN:  SLCSM  SEJ  BRAND 

DEPARTMENT  OF  THE  NAVY 

NAVAL  OCEAN  SYSTEMS  CENTER 

ATTN:  CODE  542 J  FERGUSON 
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NAVAL  RESEARCH  LABORATORY 

ATTN:  CODE  2000  J  BROWN 

ATTN:  CODE  2627 

ATTN:  CODE  4104  H  HECKATHORN 

ATTN:  CODE  4183 

ATTN:  CODE  4700  S  OSSAKOW 

ATTN:  CODE  4701 

ATTN:  CODE  4720  J  DAVIS 

ATTN:  CODE  4780  BRIPIN 

ATTN:  CODE  4780  DR  P  RERNHARDT 

ATTN:  CODE4780  J  HUBA 

ATTN:  CODE  4785  P  RODRIGUEZ 

ATTN:  CODE  5300 

ATTN:  CODE  5326  G  A  ANDREWS 

ATTN:  CODE  5340  E  MOKOLE 

ATTN:  CODE  8344  M  KAPLAN 

ATTN:  JACOB  GRUN 

OFFICE  OF  NAVAL  RESEARCH 

ATTN:  1132SM  A  TUCKER 

DEPARTMENT  OF  THE  AIR  FORCE 

AIR  FORCE  CTR  FOR  STUDIES  &  ANALYSIS 
ATTN:  AFSAA/SAKI 

AIR  FORCE  ELECTRONIC  WARFARE  CENTER 
ATTN:  LTMMCNEELY 
ATTN:  SAVC 
ATTN:  SAZ 

AIR  FORCE  OFFICE  OF  SCIENTIFIC  RSCH 
ATTN:  AFOSR/NP 

AIR  FORCE  PHILLIPS  LABORATORY 
ATTN:  J  KLOUBACHAR 
ATTN:  LAILA  DZELZKALNS 
ATTN:  OPWBLUMBERG 
ATTN:  SANTI  BASU 

AIR  FORCE  SPACE  COMMAND 
ATTN:  DOMW 

AIR  FORCE  SYSTEMS  COMMAND 
ATTN:  XTTW 

AIR  FORCE  SYSTEMS  COMMAND 

ATTN:  DCS/REQUIREMENTS  JCOLYER 

AIR  UNIVERSITY  LIBRARY 
ATTN:  AUL  LSE 

NATIONAL  TEST  FACILITY 

ATTN:  NTB/JPO  DR  C  GIESE 

PHILLIPS  LABORATORY 
ATTN:  BLDG  497 
ATTN:  NTN 

STRATEGIC  AIR  COMMAND 
ATTN:  IN 

DEPARTMENT  OF  ENERGY 

EG&G,  INC 

ATTN:  D  WRIGHT 

LAWRENCE  LIVERMORE  NATIONAL  LAB 
ATTN:  L  97TDONICH 


LOS  ALAMOS  NATIONAL  LABORATORY 
ATTN:  DONWINSKE 
ATTN:  RW  WHITAKER 

SANOIA  NATIONAL  LABORATORIES 
ATTN:  DDAHLGREN6410 
ATTN:  DIV  2344  ROBERT  MAXLINE 
ATTN:  ORG  1231  J  R  LEE 
ATTN:  ORG  91 10  G  CABLE 
ATTN:  ORG  91 10  WD  BROWN 
ATTN:  TECH  LIB  3141 

OTHER  GOVERNMENT 

CENTRAL  INTELLIGENCE  AGENCY 
ATTN:  OSWR/NED 
ATTN:  OSWR/SSD  L  BERG 

DEPARTMENT  OF  DEFENSE  CONTRACTORS 

AEROSPACE  CORP 

ATTN:  A  MORSE 
ATTN:  BRIAN  PURCELL 
ATTN:  C  CREWS 
ATTN:  CRICE 
ATTN:  DR  J  M  STRAUS 
ATTN.  G  LIGHT 
ATTN:  J THACKER 
ATTN:  M  ROLENZ 

AUSTIN  RESEARCH  ASSOCIATES 
ATTN:  J  THOMPSON 

AUTOMETRIC,  INC 

ATTN:  C LUCAS 

BDM  INTERNATIONAL  INC 

ATTN:  W LARRY  JOHNSON 

BERKELEY  RSCH  ASSOCIATES,  INC 
ATTN:  J  WORKMAN 
ATTN:  NTGLADD 
ATTN:  S BRECHT 

DEFENSE  GROUP,  INC 

ATTN:  MK  GROVER 

DYNETICS,  INC 

ATTN:  WILLIAM  D  TEPPER 

ELECTROSPACE  SYSTEMS,  INC 

ATTN:  LINDA  CALDWELL 
ATTN:  P  PHILLIPS 

EOS  TECHNOLOGIES,  INC 
ATTN:  B GABBARD 
ATTN:  RLELEVIER 

GENERAL  RESEARCH  CORP  INC 
ATTN:  J  EOLL 

GRUMMAN  AEROSPACE  CORP 
ATTN.  JDIGLIO 

HARRIS  CORPORATION 

ATTN:  E  KNICK  DEPT  5822 
ATTN:  LYMUEL  MCRAE 
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INFORMATION  SCIENCE.  INC 
ATTN:  WDUDZI.^K 


ATI.;,  SGUTSCHE 
ATTN:  TECH  LIBRARY 


INSTITUTE  FOR  DEFENSE  ANALYSES 
ATTN:  E BAUER 
ATTN:  HWOLFHARD 

JAYCOR 

ATTN:  J  SPERLING 

KAMAN  SCIENCES  CORP 
ATTN:  DASIAC 
ATTN:  E CONRAD 
ATTN:  GDITTBERNER 

KAMAN  SCIENCES  CORPORATION 
ATTN:  BGAMBILL 
ATTN:  DASIAC 
ATTN:  R RUTHERFORD 

LOCKHEED  MISSILES  &  SPACE  CO,  INC 
ATTN:  J  KUMER 
ATTN:  R SEARS 

LOGICON  R  &  D  ASSOCIATES 
ATTN:  D CARLSON 
ATTN:  S  WOODFORD 

LOGICON  R  &  D  ASSOCIATES 
ATTN:  EHOYT 
ATTN:  J  WALTON 

MAXIM  TECHNOLOGIES,  INC 
ATTN:  B  PHILLIPS 
ATTN:  NCIANOS 

MAXWELL  LABS,  INC 

ATTN:  KWARE 

MCDONNELL  DOUGLAS  CORP 
ATTN:  TCRANOR 

MCDONNELL  DOUGLAS  CORPORATION 
ATTN:  J  GROSSMAN 
ATTN:  RHALPRIN 


MITRE  CORPORATION 

ATTN:  DR  M  R  DRESP 

MITRE  CORPORATION 

ATTN:  GCAMPARETTO 

NORTHWEST  RESEARCH  ASSOC,  INC 
ATTN:  EFREMOUW 

PACIFIC-SIERRA  RESEARCH  CORP 
ATTN:  E  FIELD  JR 
ATTN:  H  BRODE 

PACIFIC-SIERRA  RESEARCH  CORP 
ATTN:  MALLERDING 

PHOTOMETRICS,  INC 

ATTN:  I  L  KOFSKY 

PHOTON  RESEARCH  ASSOCIATES 
ATTN:  DBURWELL 

PHYSICAL  RESEARCH  INC 
ATTN:  WSHIH 

PHYSICAL  RESEARCH  INC 
ATTN:  ACECERE 

RJO  ENTERPRISES/POET  FAC 

ATTN:  STEVEN  KRAMER 

S-CU8ED 

ATTN:  C  NEEDHAM 
ATTN:  T CARNEY 

SCIENCE  APPLICATIDNS  INTL  CORP 
ATTN:  C  SMITH 
ATTN:  D SACHS 
2CYS  ATTN:  L  LINSON 

SCIENCE  APPLICATIONS  INTL  CORP 
ATTN:  J COCKAYNE 


MISSION  RESEARCH  CORP 
ATTN:  J  KENNEALY 
ATTN:  R  ARMSTRONG 
ATTN:  S  DOWNER 
ATTN:  W  WHITE 


SPARTA  INC 

ATTN:  KCOSNER 

SPARTA  INC 

ATTN:  DDEAN 


MISSION  RESEARCH  CORP 

ATTN:  RLBOGUSCH 


MISSION  RESEARCH  CORP 
ATTN:  DAVEGUICE 

MISSION  RESEARCH  CORP 


ATTN 
ATTN 
ATTN 
ATTN 
ATTN 
ATTN 
ATTN 
2CYS  ATTN 
ATTN 


BR  MILNER 
B  SAWYER 
D  KNEPP 
D  LANDMAN 
FGUIGLIANO 
M  FIRESTONE 
RBIGONI 
R  DANA 
R  HENDRICK 


SRI  INTERNA'^IONAL 

ATTN:  R  LIVINGSTON 
ATTN:  RTTSUNODA 
ATTN:  WCHESNUT 

STEWART  RADIANCE  LABORATORY 
ATTN:  RHUPPI 

TELEDYNE  BROWN  ENGINEERING 
ATTN:  J  FORD 
ATTN:  J  WOLFSBERGER  JR 
ATTN:  N  PASSING 
ATTN:  RONALD  E  LEWIS 

THE  TITAN  CORPORATION 

ATTN:  M  ROSENBLATT 
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TOYON  RESEARCH  CORP 
ATTN:  J  ISE 

TRW  SPACE  &  DEFENSE  SECTOR 
ATTN;  DM  LAYTON 
ATTN:  HL  DEPT  LIBRARY 


VISIDYNE,  INC 
ATTN; 
ATTN: 
ATTN: 
ATTN: 


J  CARPENTER 
J  DEVORE 
J  THOMPSON 
W  SCHLUETER 


